PC Toledo

Bom dia.

Estou com um problema no meu código de impressão, quando mando imprimir um relatório, esta saindo 2 folhas, no caso a 2 folha sai sem nada, em branco. gostaria de uma help, ja analisei o código mais n achei o problema.
Agradeço desde já pela ajuda.

Segue o meu código:

Código: Selecionar todos

Go Top
	If Imprime(2)
		Do While !EOF()
			If PRow() = 0
				Cabeca('RELATORIO FINANCEIRO')
				
				@ PRow()+1, 01 Say 'Cliente: ' + AllTrim(Str(CadCli->codcli)) + "-" + CadCli->fantas
				@ PRow()+2, 01 Say Replicate('=', 78)
				@ PRow()+1, 01 Say PadC('Tipo     Pedido  Valor      Vencto.   Pagto.',78,"")
				@ PRow()+1, 01 Say Replicate('=', 78)
			EndIf

			@ PRow()+1, 01 Say PadC(tipreg +" "+ codped +" "+ Trans(vlrdup,"@E 9999999.99") +" "+ DToC(datmov) +" "+ DToC(datpag),78,"")
			
			If PRow() > 52
				@ 55, 01 Say Replicate('=', 78)
				@ 56, 01 Say 'Pag.' + Str(pag++, 4)
				Eject
			EndIf
			Skip
		EndDo
		Eject
		Set Printer To
		Set Device To Screen
		Imprime(2)
	EndIf

O que essa função Imprime(2) faz ? Na linha 25 do seu código postado está chamando outra vez, estaria certo fazer essa chamada recursiva ? Faltou também postar o código fonte da função Cabeca('RELATORIO FINANCEIRO').

no caso imprimi(2) chama uma outra função de impressão.

Pula folha em branco... fonte com dois EJECT... O EJECT é o suspeito número 1.

Imprime rodapé e faz eject, então sempre que termina já pulou folha, não precisaria de mais um eject no final.

Faça um teste modificando o último eject: (ou até retirando)

If pRow() <> 0
eject
Endif

Fora isso tem o trecho: if pRow() > 52; imprime na 55
Se nas outras rotinas retornar na linha 56, por exemplo, vai pular uma folha antes do rodapé.

Vou fazer o teste, mais agradeço a todos desde já pela ajuda e atenção.

acabei de testar, fiz essas 2 alterações e deu certo, muito obrigado. Deus abençoe abçs..

PC Toledo

Problemas com impressão no clipper.

Problemas com impressão no clipper.

Problemas com impressão no clipper.

Problemas com impressão no clipper.

Problemas com impressão no clipper.

Problemas com impressão no clipper.

Problemas com impressão no clipper.