Olá tonyx,
Pelo que lembro você já meche com xHarbour, então você mesmo pode ter um TXT2PDF.exe feito em xHarbour, só compilar o exemplo abaixo e chamar no seu sistema Clipper.
*******************************
Function GERA_PDF(cARQ, vABRE )
*******************************
cText := memoread( cArq )
nLines := mlcount( cText, 150 )
cFileToSave := "nome_arq.PDF" // nome do PDF
#ifdef __XHARBOUR__ // esse é para xHarbour
Private AMSG := {}, CIMG
set(105,1)
set(106,1)
vAUTOR=""
PdfNew(cFileToSave,6,842,595,1,20,,,)
PdfStartPage( {vAUTOR} , .T. )
HB_SETLANDSCAPE(.T.)
for nA := 1 to nLines
cLinha := memoline( cText, 150, nA, 1, .F. )
Aadd(AMSG,cLinha)
next
PdfDrawPage( AMSG )
PdfEndPage()
PdfEnd()
#else // esse é para Harbour
Private page, height, width, def_font, font
Private pdf := HPDF_New()
if pdf == NIL
alert( " Erro ao tentar gerar o Arquivo Pdf, Favor Tente novamente")
Return("")
endif
/* set compression mode */
HPDF_SetCompressionMode( pdf, HPDF_COMP_ALL )
*HPDF_SetPassword(pdf, "senha","leonardo" ) // colocar senha no PDF
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 )
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, 7 )
HPDF_Page_SetFontAndSize( page, font, 7 )
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 )
HPDF_Free( pdf )
#endif
IF vABRE="S"
Abre_arquivo( cFileToSave ) // aqui dependendo já mando abrir o arquivo
ENDIF
Return
Obs: Para comiplar com xHarbour tem que ter a LIB: PDFLIB.LIB e para compilar com Harbour tem que ter as LIB's: hbhpdf.lib libhpdf.lib libpng.lib