Este é um arquivo TXT que eu pretendo converter pra PDF, usando o TXTtoPDF.PRG daqui do fórum
Como faço pra eliminar esse controle "FF" (destacado com <-RETIRAR ISSO) de mudança de página no TXT, antes de enviar essa linha para o PDF ?
Se deixar passar esse "FF" para o PDF, termina juntando a última linha impressa com a que vem após o "FF", loucura !!!
Abaixo o TXTtoPDF em uso
*******************************
Function Txt_Pdf(vARQ, vABRE )
*******************************
cText := memoread( vARQ )
nLines := mlcount( cText, 150 )
cFileToSave := cARQPDF // nome do PDF
Private page, height, width, def_font, font
Private pdf := HPDF_New()
if pdf == NIL
Aviso("Erro HBPDF tentar gerar o Arquivo Pdf, Favor Tente novamente")
Return("")
endif
Clargura=0
for i= 1 to nLines
xLinha:= memoline( cText, 150, i, 1, .F. )
if .not. empty(xlinha)
xlinha=alltrim(xlinha)
clargura=Max(clargura,len(xlinha))
endif
next i
/* set compression mode */
If CompressaoPDF
HPDF_SetCompressionMode( pdf, HPDF_COMP_ALL )
else
HPDF_SetCompressionMode( pdf, HPDF_COMP_NONE )
endif
page := HPDF_AddPage(pdf)
height := HPDF_Page_GetHeight(page)
width := HPDF_Page_GetWidth(page)
def_font := HPDF_GetFont( pdf, "Helvetica", NIL )
HPDF_Page_BeginText( page )
HPDF_Page_MoveTextPos( page, 10, height - 10 )
if clargura<85
Tletra=11
elseif clargura<105
Tletra=10
elseif clargura<125
Tletra=9
elseif clargura<145
Tletra=8
else
Tletra=7
endif
vCONT=0
for nA := 1 to nLines
cLinha := memoline( cText, 150, nA, 1, .F. )
font := HPDF_GetFont( pdf, "Courier" , NIL )
HPDF_Page_SetFontAndSize( page, def_font, tletra )
HPDF_Page_SetFontAndSize( page, font, tletra )
HPDF_Page_ShowText( page, cLinha )
HPDF_Page_MoveTextPos( page, 0, -10 )
vCONT=vCONT+1
IF vCONT=80
page := HPDF_AddPage(pdf)
HPDF_Page_SetLineWidth(page, 1)
HPDF_Page_BeginText( page )
HPDF_Page_MoveTextPos( page, 10, height - 10 )
vCONT = 0
ENDIF
next
HPDF_Page_EndText( page )
HPDF_SaveToFile( pdf, cFileToSave )
IF upper(vABRE)="S"
Abre_arquivo( cFileToSave ) // aqui dependendo já mando abrir o arquivo
ENDIF
HPDF_Free( pdf )
Return
Eu uso Harbour 3.2, modo console
Grato...