Moderador: Moderadores
Código: Selecionar todos
*******************************
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
/NoStart
When you use the /PF parameter, PDFCreator stays open after it's done its task. The /NoStart parameter automatically closes PDFCreator after it is done.
Example: pdfcreator.exe /NOSTART /PF"C:help.doc"
/OpenOF
Open the output file after converting. This parameter can only be used in conjunction with the /IF and the /OF parameter.
Example: pdfcreator.exe /IF"C:description.ps" /OF"C:description.pdf" /OpenOF
Use o software DOSprinter. É versátil e possui vários parâmetros interessantes... Indo direto para o aporte que deseja, considerando que possua uma arquivo de nome FORUM.TXT e queira converter em PDF seu uso é simples em linha de comando:Paulo S escreveu:....uma maneira para que este arquivo seja salvo e abra automaticamente sem a necessidade de interagir com esta janela. Isto é possível? Como?
Código: Selecionar todos
zz=Printer_cr("WIN",1) //Cria arquivo com os dados da impressão
Pr_fonte(zz,2) //Muda fonte
Pr_tam(zz,10) //Muda tamanho da fonte
Pr_negr(zz,"N") //Ativa negrito
Pr_texto(zz,10,300,"Texto a ser Impresso") //Imprime texto
Pr_lin(zz,200,1,200,12000) //Desenha uma linha horizontal
Pr_qua(zz,500,1,6000,10000) //Desenha um quadro
Pr_nova(zz) //Muda de página
Pr_fig(zz,1000,500,"C:\LOGO.GIF") //Imprime imagem na nova página
Pr_fecha(zz) //Fecha o arquivo e imprime
MANUAL.TXT 
GERA.PRG Código: Selecionar todos
procedure teste
zz=Printer_cr("WIN","1")
Pr_Texto(zz,01,02," linha um coluna dois")
Pr_Texto(zz,02,10," linha dois coluna dez")
For z:=1 to 4
Pr_texto(zz,04+z,10," linha " + str(4+z))
Next
Pr_fecha(zz)
Return
Código: Selecionar todos
set talk off
set score off
zz=Printer_cr("WIN","1")
Pr_Texto(zz,1,1," linha um coluna 1")
Pr_Texto(zz,200,1," linha 200")
lin=400
do while lin<=1000
Pr_texto(zz,lin,1," linha " + str(lin))
lin=lin+200
enddo
Pr_fecha(zz)
return
No exemplo que postei, eu não estou chamando a execução do Printer.exe, o que acontece é quando a funçãoCaro Rosalvo,
Está quase tudo correto, exceto que não há a necessidade de chamar a execução do Printer.exe,
Printer.zip