PC Toledo

Código: Selecionar todos

#include "harupdf.ch"
*******************
Function GERA_PDF(cARQ,cVisualiza) 
******************* 
LOCAL font_list  := { ;
      "Courier"               , ;
      "Courier-Bold"          , ;
      "Courier-Oblique"       , ;
      "Courier-BoldOblique"   , ;
      "Helvetica"             , ;
      "Helvetica-Bold"        , ;
      "Helvetica-Oblique"     , ;
      "Helvetica-BoldOblique" , ;
      "Times-Roman"           , ;
      "Times-Bold"            , ;
      "Times-Italic"          , ;
      "Times-BoldItalic"      , ;
      "Symbol"                , ;
      "ZapfDingbats"          }
Local Page, nSeq := 0
Local pdf
centra(24,"Aguarde Gerando Documento PDF...")


Do While .t.
   nSeq++
   If ! File("p:\temp\JAF_"+StrZero(nSeq,4)+'.PDF')
        cFILE3 := "p:\temp\JAF_"+StrZero(nSeq,4)+'.PDF'
        Exit
   Endif
   If nSeq  >=9999
      Alerta("Faca a limpeza da pasta p:\temp\")
   Endif
Enddo

//cFile3 := 'c:\temp\joao.pdf'
Sele Preview
nFonte := 7


nOpcao := AlertJAF("DESTINO"+;
                              ' ',{"### Normal ###",;
                                   "### Compactado DRE ###",;
                                   "### Romaneio ###" },"WW+/BR+,BB+/N" )
cFile := "fundo.jpg"
? pdf := HPDF_New()

IF pdf == NIL
   Alerta( "PDF could not be created!" )
   RETURN NIL
Else
    ? 'ok.. criando pdf sucesso!'
Endif

/* set compression mode */
HPDF_SetCompressionMode( pdf, HPDF_COMP_ALL )

page := HPDF_AddPage( pdf )

height := HPDF_Page_GetHeight( page )
width  := HPDF_Page_GetWidth( page )

def_font := HPDF_GetFont( pdf, font_list[1], NIL )
HPDF_Page_SetFontAndSize( page, def_font, nFonte  )
tw := HPDF_Page_TextWidth( page,' page_title')


 

HPDF_Page_BeginText( page )
HPDF_Page_TextOut( page, 10, height - 60, "" ) //
//HPDF_Page_TextOut( page, 60, height - 60, "" ) //

dbgotop() 
cCONT=0
cQuebra:= .f.
Do while !Eof() 
   cLinha  := l001+l002+l003+l004+l005+l006+l007+l008+l009+l010
   cCONT=cCONT+1
   cLinha  := StrTran(cLinha,'Ä','=')
   I=0
   For I:= 1 to Len(cLinha)
       //---- Ajusta caracter
       If Substr(cLinha,i,1)==Chr(12)
          cQuebra:= .t.
          Exit
       Endif
   Next
   if cQuebra==.t.

       HPDF_Page_ShowText( page, clinha )
       HPDF_Page_MoveTextPos( page, 0, - 10 ) //18  



       page := HPDF_AddPage( pdf )
      
       height := HPDF_Page_GetHeight( page )
       width  := HPDF_Page_GetWidth( page )

       def_font := HPDF_GetFont( pdf, font_list[1], NIL )
       HPDF_Page_SetFontAndSize( page, def_font, nFonte  )
       tw := HPDF_Page_TextWidth( page,' page_title')
       
       HPDF_Page_BeginText( page )
       HPDF_Page_TextOut( page, 10, height - 60, "" ) //40

       cQuebra:= .f.
       cCONT=0 
   Else
       HPDF_Page_ShowText( page, clinha )
       HPDF_Page_MoveTextPos( page, 0, - 10 ) //18
   ENDIF 
   dbskip() 
enddo 


IF HPDF_SaveToFile( pdf, cFile3) != 0
      Alerta('Erro criacao do PDF!')   
ENDIF

HPDF_Free(pdf )
Alerta('Criado arquivo....'+cFile3)
Return cFile3

Código: Selecionar todos

STATIC FUNCTION imprime()

   LOCAL oPDF, nKey, cnSQL := ADOLocal()

   oPDF := PDFClass():New()
   oPDF:SetType( nOpcPrinterType )
   oPDF:Begin()

   nKey = 0

   oPDF:acHeader := { "","",""}
   oPDF:acHeader[ 1 ] = "LISTAGEM DO CADASTRO DE CIDADES/PAISES"
   oPDF:acHeader[ 3 ] = Space(43) + "CODIGO  NOME-------------------------------------  UF"

   WITH OBJECT cnSQL
      :cSQL := "SELECT IDCIDADE, CINOME, CIUF ORDER BY CINOME"
      :Execute()
      DO WHILE nKey != K_ESC .AND. ! :Eof()
         GrafProc()
         nKey = Inkey()
         oPDF:MaxRowTest()
         oPDF:DrawText( oPDF:nRow, 44, Str( :Number( "IDCIDADE" ), 6 ) )
         oPDF:DrawText( oPDF:nRow, 52, :String( "CINOME", 21 ) )
         oPDF:DrawText( oPDF:nRow, 96, :String( "CIUF", 2 ) )
         oPDF:nRow += 1
         :MoveNext()
      ENDDO
      :CloseRecordset()
   ENDWITH
   oPDF:End()

   RETURN .T.