Assim preparei o arquivo texto que vai servir de entrada para o programa em XHarbour gerar o .PDF correspondente.
Deve ter algum erro no seguinte trecho do fonte PDF.PRG, abaixo listado, onde são geradas as linhas gravadas no arquivo temporário e emite o relatório já em .PDF.
Ele está voltando à linha 1, e, assim por exemplo, se o relatório tiver 80 linhas, ele imprime a primeira folha com 60 linhas, volta à linha 1 e emite novamente a mesma folha.
A dúvida é:
"Posso retirar o teste de IF ccont == 60 ?"
Pois em relatórios pelo WORD não existe a preocupação de contagem de linhas, pois o Word reparte o texto de acordo com as suas especificações (fontes, tamanho de página, etc.)
*
// trecho do fonte
Código: Selecionar todos
*****************************************************************************
do while ! eof()
clinha := linha // Busca linha de impressao
ccont := ccont + 1
aadd(amsg,clinha)
if ccont == 60 //posso retirar da linha 8 até 13?
pdfdrawpage(amsg)
pdfendpage()
pdfstartpage( {vautor}, .t.)
ccont := 0
endif
dbskip()
enddo
pdfdrawpage(amsg)
pdfendpage()
pdfend()
abre_arquivo( cfile3 )
return nil
.....
