FiveTech Software tech support forums

Code: Select all

 
QuitProgamLoad( "AcroRd32.EXE" )  // Verifica si esta abierto el Acro...
 cFile := ".\Informes\Cierre Productor CSG N° "+AllTrim(PA18->CCSG)+".PDF"

 SET 3DLOOK OFF
 PRINTER oPrn TO cPrintPDF FILE cFile  PREVIEW      // <-- cPrintPDF es una variable que contiene el nombre de una impresora virtual PDF (doPDF v7)

 IF EMPTY( oPrn:hDC )
     RETURN NIL
 ENDIF
...
...
...
    construyes tu report
...
...

 

Code: Select all

Function QuitProgamLoad( cProceso )
 LOCAL oBj, oServ, aProcess, objProcess

 TRY
    oBj := CreateObject( "wbemScripting.SwbemLocator" )
 CATCH
    Return nil
 END

 oServ     := oBj:ConnectServer()
 aProcess  := oServ:ExecQuery( "Select * from Win32_Process" )
     For Each objProcess in aProcess
         If UPPER(objProcess:Name) = UPPER(cProceso)
            objProcess:Terminate()
         ENDIF
     next

 Return nil

 

Code: Select all

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL oPrn, oFont

   PRINT oPrn NAME "impresion de JPG" PREVIEW MODAL

   IF Empty( oPrn:hDC )
      RETURN nil          // Printer was not installed or ready
   ENDIF

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, - 12 OF oPrn

   PAGE

   oPrn:SayImage( 0, 0, "cifrao.jpg", oPrn:nHorzRes(), oPrn:nVertRes() , NIL, .T. )

   ENDPAGE

   ENDPRINT

   oFont:End()      // Destroy the font object

RETURN nil
 

Code: Select all

PRINT oPrn FILE "filename.PDF" 
PAGE
<print ............>
ENDPAGE
ENDPRINT