PC Toledo

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

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

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