Problemas com impressão no clipper.

[aprendiz93]

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

[Pablo César]

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').

[aprendiz93]

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

[JoséQuintas]

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é.

[aprendiz93]

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

[aprendiz93]

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