FiveTech Software tech support forums

Code: Select all

IF EMPTY( oPC := WIN_OLECreateObject( "PDFCreator.clsPDFCreator" ) )
      MsgStop("Pdf Creator não esta instalado neste computador.",;
                "Prodedimento abortado")
        
      RETURN .F.
   ENDIF
    
   oPC:__hSink := __AxRegisterHandler( oPC:__hObj, {|X| nEvent := X} )

   oPC:cStart( "/NoProcessingAtStartup" )
   oPC:_cOption( "UseAutosave", 1 )
   oPC:_cOption( "UseAutosaveDirectory", 1 )
   oPC:_cOption( "AutosaveDirectory", "C:\TESTE\" )
   oPC:_cOption( "AutosaveFilename", "MyPdf.pdf" )
   oPC:_cOption( "AutosaveFormat", 0 )

   oPC:cDefaultPrinter := "PDFCreator"
   oPC:cClearCache()
   oPC:cPrinterStop := .F.

    PRINTER oPrnPdf NAME "Gerando pdf" ;
            to "PDFCreator"  //modal

        DEFINE FONT oFnt1 NAME "Arial" SIZE 0,-20 OF oPrnPdf 

        oPrnPdf:SetPortrait()
        nRcol := oPrnPdf:nlogpixelx()/2.54
        nRlin := oPrnPdf:nlogpixely()/2.54

        PAGE 
          oPrnPdf:say(05*nRlin,05*nRcol,;
                     "TESTE COM PDFCREATOR",;
                     oFnt1,,,,0)
        ENDPAGE
        
    ENDPRINTER

   nTime := hb_milliseconds()
   DO WHILE nEvent == 0 .AND. (hb_milliseconds() - nTime) < 10000
      hb_idleSleep( 0.5 )
      /* The following dummy line is required to allow COM server to send event [Mindaugas] */
      oPC:cOption("UseAutosave") 
   ENDDO
    
   hb_idleSleep( 0.7 )
   oPC:cClose()