Gracias por compartir Victor.
Victor Espina--
Ricardo Pina
Desarrollo y Servicios Informáticos
Profesionales
www.dsip.com.ar
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________
--
Tambien es IMPORTANTE que la ruta termine en "\".
Ponlo entre comillas
MK
--
--
--
Estimado Ricardo...
Me funcionaba perfecto y derrepente me salió el siguiente errorFile access is deniedc:\users\ctopp\appdata\temp\_3t214tb0t.ps.
Yo uso algo como esto, fijate si te sirve:
auxnom = 'c:\documentos\mandamiento'+'.pdf'
cDocument='c:\documentos\mandamiento.doc'
oWord=CREATEOBJECT("word.application")
oDocument=oWord.Documents.OPEN(cDocument)
oWord.Selection.Document.SaveAs(auxnom,17)
oWord.Quit(0)
RELEASE oWord
Saludos.-
Roberto
SAN JUAN-ARGENTINA
Que office usas...???
En Thu, 16 Jan 2014 06:57:34 -0800 (PST), Fox-Polilla <jaime.albe...@gmail.com> escribió:
Roberto muchas gracias pero no me funciona, me saca un error en la linea oWord.Selection.Document.SaveAs(auxnom,17) y dice Código de excepción OLE IDispatch0 de Microsoft Word: El comando falló.
DO pdf
IF NOT pdf.oXPS.autoSetup()
?"La generacion de PDF por XPS no esta disponible"
RETURN
ENDIF
pdf.cMode = "XPS"
IF NOT pdf.create("salida.pdf", "reporte.frx", "cursorDatos")
MESSAGEBOX(pdf.cError)
RETURN
ENDIF
Puedes ver el articulo original aqui:
Saludos
Victor Espina
Hola Arnaldo.
Yo utilizo esta librería modificada x Victor.
Te diría q prestes atención si tenes el INI en el directorio donde está el programa q llama la librería.
Lo otro es ver el camino q pusiste dentro del ini p encontrar la librería Ghost, x ejemplo si es c:\Archivos de programa (x86)\gs\gs9.16\bin, debería ser C:\Progra~2\gs\gs9.16\bin\ , así es mi caso y funciona perfecto.
He probado la nueva librería q hizo Victor, dado q sigo las clases q Victor ofrece. La misma se auto-configura o se puede setear a gusto y puede funcionar sin el GhostScrip, utilizando una impresora XPS, funciona bien, pero en mi caso observé q la calidad del pdf no es tan buena como la librería anterior, esto Victor lo mejoró, x eso te pido q la pruebes y verás cual te gusta mas.
X mi parte siento más cómodo con esta librería, q estas preguntando y la utilizo en conjunto con la impresora virtual CutePdf y sin problemas.
Saludos.
Esteban.
* findPrinter (Function)
* Finds a printer by its name, port or driver
*
FUNCTION findPrinter(pcSearchIn, pcSearchFor)
LOCAL ARRAY aList[1]
LOCAL nCount, i, cPrinter
#IF VERSION(5) >= 900
nCount = APRINTERS(aList, 1)
#ELSE
nCount = APRINTERS(aList)
#ENDIF
cPrinter = ""
pcSearchIn = LOWER(pcSearchIn)
FOR i = 1 TO nCount
#IF VERSION(5) >= 900
IF (pcSearchIn == "name" AND LIKE(pcSearchFor, aList[i,1])) OR ;
(pcSearchIn == "port" AND aList[i,2] == pcSearchFor) OR ;
(pcSearchIn == "driver" AND LIKE(pcSearchFor, aList[i,3]))
#ELSE
IF (pcSearchIn == "name" AND LIKE(pcSearchFor, aList[i,1])) OR ;
(pcSearchIn == "port" AND aList[i,2] == pcSearchFor)
#ENDIF
cPrinter = aList[i,1]
EXIT
ENDIF
ENDFOR
RETURN cPrinter
ENDFUNC
Saludos
Victor
Jocelyn.
Al nombre del archivo PDF, agregale la ruta donde quieras que se genere.
Como te indica Victor en el ejemplo.
en "archivo.pdf" quedaría algo como "\\servidor\miaplicacion\misPDFs\archivo.pdf"
Buenas tardes.
Me podrian apoyar, estoy utilizando la libreria con algunas modificaciones ya
que en mi caso requerian que varios reportes se juntaran en uno solo, dicho
proceso ya lo pude realizar pero al momento en que se generan los pdf no me
respeta los margenes que los reportes contienen.
Existe alguna forma de ajustar este detalle o de indicarle el marguen que debe
tomar la hoja??
De antemano muchas gracias.
Estimados amigos.
Hola Victor!!Hace tiempo publicaste unas librerías para factura electrónica, en ellas generas la impresión usando PDFCreator, modifique esa rutina para trabajar con BULLZIP que es un programa igual que PDFCreator pero que a diferencia de este no eh tenido problema con ningún cliente y tengo mas de 100 instalaciones en todo tipo de windows xp, vista, 7, 8 en versiones de 32 y 64bit e incluso trabajo mucho con terminal server o escritorio remotoTambién al instalar Bullzip te pide que instales GS, y la instalación es muy sencilla y trae varios idiomas.Aquí la función que modifique y que hay que pasar 2 parámetros el archivo FRX y el archivo destino.FUNCTION PdfBullzipLPARAMETERS cFrx,cArchivoloPdf = CREATEOBJECT('Bullzip.PDFPrinterSettings')IF TYPE('loPdf')='O'loPdf.SetValue('output', cArchivo)loPdf.SetValue('DisableOptionDialog', 'no')loPdf.SetValue('ConfirmOverwrite', 'no')*loPdf.SetValue("WatermarkColor","#FF9900")loPdf.SetValue('Showsettings', 'never')loPdf.SetValue('ShowSaveAS', 'nofile')loPdf.SetValue('ShowPdf', 'no')loPdf.WriteSettings(.t.)SET CONSOLE OFFSET PRINTER TO NAME ("Bullzip PDF Printer")REPORT FORM &cFrx TO PRINTERSET PRINT OFFSET PRINTER TO DEFAULTSET CONSOLE ON* WAIT windows "PDF GENERADO EN: " + cArchivoELSE* WAIT windows "ERROR DE OBJETO PDF"ENDIFENDFUNCUso:PdfBullzip("formato.frx","impresion.pdf")saludosAntonio Meza
Una opción q podes usar es Pdf3
https://groups.google.com/g/publicesvfoxpro/c/HHYKeWhJxF4/m/JlrDMZ9aAwAJ
Saludos
--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/48d2c219-db39-4c3a-bb7a-43e4109ecfaen%40googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/9e8454b5-982f-4aee-9ef0-e84d6083daf6%40yahoo.com.ar.