Function Main()
Local aPrinters,i
aPrinters:= WIN_PRINTERLIST()
For i:= 1 To Len(aPrinters)
? aPrinters[i]
Next
Return nilHola Pere,
No te he podido responder antes...
La verdad es que el tema del pdf me tiene bastante desanimado ya...
He probado Image2Pdf (dll), PdfCreator y Bullzip Pdf. Los 3 si me han funcionado a mi en mi ofi. Pero en la ofi del cliente, sobre un Terminal Server 2008 tengo que no funciona bien porque:
Image2Pdf no coge el font bien.
PdfCreator pide el nombre del fichero en el momento de imprimir
Bullzip da un error de fichero... no sé qué y no genera el pdf
¿ Utilizas tu Terminal Server 2008 ?
Saludos
Utilizo el image2pdf para convertir los emf de las preview en archivos pdf pero no la dll sino el exe bajo linea de comandos sin problemas, inlcusive en un servidor con server 2008, y por escritorio remoto tambien.
La linea que ejecuto es:
cLicence := TU CODIGO DE LICENCIA de image2pdf
cEMF := el nombre del archivo de preview a convertir con path completo incluido
cPDF := el nombre del archivo pdf de salida con path completo
cCommand := "C:\Image2PDF.EXE -License " + cLicence + " -image " + cEMF + " -MetaToNativePDF -UseEMFFrameSize -output " + cPDF
WaiRun( cCommnand, 0 )
Espero que te sirva.
Saludos!
Tecnisoftware,
Gracias por responder.
Mira, lo que me pasa con el image2pdf sobre el TS 2008 es que no traduce bien el font. Yo utilizo archivos .Wmf.
He contactado con Adrian de Utility Warrior, y por lo que me dice es que en el TS 2008 no están todos los fonts instalados y por eso traduce al más aproximado.
Saludos
Hola
Para generar pdfs lo mejor es el PDFCREATOR
INSTALAS PDFCREATOR
LO CONFIGURAS:
PDFCREATOR-OPCIONES-AUTOGUARDADO
USAR AUTOGUARDADO
NOMBRE DE ARCHIVO: TITLE
Y ASIGNAS UNA CARPETA DONDE SE GUARDAN (PEJM C:\PDFS)
EN TU PROGRAMA HACES LO SIGUIENTE
XPDF="PDFCREATOR"
TIT1="REP1"
PRINT oPrn NAME TIT1 TO (XPDF)
.
.
ENDPRINT
AL FINAL TENDRAS UN ARCHIVO EN
C:\PDFS\REP1.PDF
ESPERO TE SIRVA
