www.FiveTechSoft.com
http://forums.fivetechsoft.com/
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
...
...
gas stations new york nyCode: 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