Siguiendo un ejemplo de Pere Codornet he intentado SIN EXITO hacer la impresion con BullZip PDF con el codigo siguiente
Code: Select all
FUNCTION TestBullZip()
Local oApp
Local cNomPdf:= "TestBull.Pdf"
Iif(File(cNomPdf),FErase(cNomPdf),NIL)
oApp := CreateObject( "Bullzip.PDFPrinterSettings" )
oApp:LoadSettings(.F.)
oApp:SetValue("output", cNomPdf )
oApp:SetValue("showpdf", "no")
oApp:SetValue("showsaveas", "never")
oApp:SetValue("showsettings", "never")
oApp:SetValue("showprogress","no")
oApp:SetValue("showprogressfinished","no")
oApp:SetValue("confirmoverwrite","no")
oApp:SetValue("showsaveas","nofile")
oApp:WriteSettings(.T.)
PRINT oPrn ;
TITLE "vayita !!";
TO "Bullzip PDF Printer"
PAGE
oPrn:ImportWMF( "algo.wmf", .F. )
ENDPAGE
ENDPRINT
*
RETURN NIL
Saludos