PDF en color con Bullzip, PdfCreator (SOLUCION)

[Shark]

Hola a todos!!

Haciendo muchas pruebas para generar un PDF a color usando bullzip o
pdfcreator sin tener resultados, abrir el archivo frx como una tabla
desde vfp, es decir editando el archivo miformato.FRX con USE ? y
luego mostrando los datos con BROW, en el primer registro en el campo
memo EXPR tiene los siguientes datos:

DRIVER=winspool
DEVICE=Bullzip PDF Printer
OUTPUT=BULLZIP
ORIENTATION=0
PAPERSIZE=119
SCALE=100
ASCII=0
COPIES=1
DEFAULTSOURCE=15
PRINTQUALITY=600
COLOR=1
YRESOLUTION=600
TTOPTION=3
COLLATE=0

Todos mi archivos .FRX tiene en donde dice COLOR = 1, solo cambie el
valor a 2, guarde y genere el PDF desde mi sistema y ya me lo genero a
Color usando

oPdf= CREATEOBJECT("PDFCreator.clsPDFCreator")
loPdf = CREATEOBJECT('Bullzip.PDFPrinterSettings')

Espero les sea de utilidad!!!

Saludos
Antonio Meza

[Ing.Daniel Bojorge]

Muy interesante, gracias por compartirlo.

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

[José Luis]

Buenos días desde Venezuela. Compañero serias tan amable por favor en
colocar el ejemplo completo, así nos beneficiariamos todos en el foro
con tu ejemplo. Suludos.

[Shark]

hola que tal!!

El ejemplo que tengo lo tome de los compañeros del grupo de factura
electronica

https://groups.google.com/group/vfp-factura-electronica-mexico?hl=es

Pero de igual forma paso el codigo que tengo mas tarde, que es el
mismo de ese foro, salvo el detalle que a muchos como a mi me salia la
impresion en blanco y negro y buscandole sin querer jeje le encontre
donde moverle para que ya salga a color.

saludos!!!

[Shark]

Ejemplo de imprimir PDF automatico


* este codigo lo tome del Sr. Victor Espina de su clase CFD para
PDFcreator

FUNCTION Pdfcreator
LPARAMETERS cReporte, cPathDigital, cPDFFile
* Nombre del informe, directorio, Archivo generado
LOCAL oPdf as Object
oPdf = CREATEOBJECT("PDFCreator.clsPDFCreator")
oPdf.cStart
oPdf.cVisible = .T.
oPdf.cclearCache
oPdf.cPrinterStop = .F.
oPdf.cOption("AutosaveDirectory") = ALLTRIM(cPathDigital)
oPdf.cOption("AutosaveFilename")= cPDFFile
oPdf.cOption("UseAutosave")= 1
oPdf.cOption("UseAutosaveDirectory") = 1
oPdf.cOption("AutosaveFormat") = 0
oPdf.cSaveOptions()

SET PRINTER TO NAME 'PDFCreator'
REPORT form (cReporte) TO PRINTER NOCONSOLE

opdf.cclearcache
oPdf.cClose
oPdf= null
ENDFUNC

* este codigo para Bullzip es de varios compañeros del foro de factura
electronica

FUNCTION PdfBullzip
LPARAMETERS cFrx,cArchivo
* cFrx Nombre del Informe, Archivo destino

loPdf = CREATEOBJECT('Bullzip.PDFPrinterSettings')

IF TYPE('loPdf')='O'
loPdf.SetValue('output', cArchivo)
loPdf.SetValue('DisableOptionDialog', 'no')
loPdf.SetValue('ConfirmOverwrite', 'no')
loPdf.SetValue('Showsettings', 'never')
loPdf.SetValue('ShowSaveAS', 'nofile')
loPdf.SetValue('ShowPdf', 'no')
loPdf.WriteSettings(.t.)
SET CONSOLE OFF
SET PRINTER TO NAME ("Bullzip PDF Printer")
REPORT FORM &cFrx TO PRINTER
SET PRINT OFF
SET PRINTER TO DEFAULT
SET CONSOLE ON
ENDIF
ENDFUNC

Para generar el reporte teniendo las funciones solo llamas asi

Pdfcreator("d:\frx\factura.frx","d:\cfd\","d:\cfd\facturaXXX.pdf")

PdfBullzip("d:\frx\factura.frx","d:\cfd\facturaXXX.pdf")
o
PdfBullzip(variableMiFormatoFrx,variableMiArchivoPDF)

* Nota si vas a usar variables estas las debes declarar previamente no
exite VariableMiFOrmatoFrx es un nombre X que puse para darte el
ejemplo.

Saludos
Antonio Meza

[ibania blanco]

shark

debes de tener instalado el pdfcreator para el primer ejemplo y para
el segundo ejemplo Bullzip PDF Printer

[Mario Alfredo]

es cierto lo que dice ibania, si o no lo anterior

[Luna]

Hola tengo un problema al imprimir varios reportes en pdf

y es que apesar de que le paso como parámetro el nombre 

que llevará el pdf, en algunos me saca el cuadro de diálogo 

para que le asigne un nombre..

No hay una forma de establecer un tiempo determinado entre

impresión e impresión ?

espero haberme explicado :P