Imprimir un PDF desde mi aplicación.

1,252 views
Skip to first unread message

Edgar Acevedo

unread,
Feb 29, 2012, 12:16:56 AM2/29/12
to publice...@googlegroups.com, Edgar Acevedo
Saludos amigos...!!!

Quisiera imprimir un archivo PDF desde mi aplicación. 
- No me interesa "visualizar" en pantalla el PDF.
- Es un archivo de contenido "x" ya dado. No es un reporte que yo vaya a generar (por lo que no me sirve FOXYPREVIEWER para generar un reporte).
- Simplemente recibo el archivo en una carpeta y sin importar su contenido quiero que el usuario de mi aplicación, simplemente lo mande a imprimir (sin verlo).

Gracias por su atención.

Salu2,


Edgar Acevedo.

Gorka

unread,
Feb 29, 2012, 1:53:08 AM2/29/12
to Comunidad de Visual Foxpro en Español
Prueba esto:

local druta,obj

druta="c:\MiFichero.pdf"
obj = CreateObject("Shell.Application")
obj.ShellExecute( druta, "", "", "print", 0)
release obj

Saludos
Gorka

Edgar Acevedo

unread,
Feb 29, 2012, 10:38:00 AM2/29/12
to publice...@googlegroups.com
Muchas gracias amigo....!!!

Si logré imprimir mi PDF, pero se me queda abierto el Acrobat Reader.  Ahora estoy buscando la fora de que el Acrobat Reader se cierre.

Mil gracias...!

Salu2,


Edgar

Alfonso Arce Silvestre

unread,
Feb 29, 2012, 10:51:43 AM2/29/12
to publice...@googlegroups.com
Agregale Obj.quit

Edgar Acevedo

unread,
Feb 29, 2012, 10:59:01 AM2/29/12
to publice...@googlegroups.com
Gracias Alfonso, pero al agregarle  Obj.quit obtengo un error  "OLE error code 0x80020006: Unknown COM status code."
y de todos modos se queda abierto el Adobe Reader.  ¿ Qué estaré haciendo mal ?

Salu2 y gracias..

Edgar

El 29 de febrero de 2012 09:51, Alfonso Arce Silvestre <alfonsoarc...@gmail.com> escribió:
Agregale Obj.quit


Edgar Acevedo

unread,
Feb 29, 2012, 3:52:01 PM2/29/12
to publice...@googlegroups.com
Solución:

DECLARE INTEGER ShellExecute IN shell32.dll ;
        INTEGER hndWin, ;
        STRING cAction, ;
        STRING cFileName, ;
        STRING cParams, ;
        STRING cDir, ;
        INTEGER nShowWin

cFileName = "D:\TEST.PDF"
cAction = "print"
ShellExecute(0,cAction,cFileName,"","",0)

CLEAR DLLS ShellExecute 

Edgar Acevedo

unread,
Feb 29, 2012, 3:56:00 PM2/29/12
to publice...@googlegroups.com
Tampoco sirve....!!!!!!

Imprime, pero deja abierto el Adobe Reader....!!!  No lo mencioné antes porque apareció como un minuto después de haber mandado a imprimir el PDF.

elkin dario uribe torres

unread,
Feb 29, 2012, 4:01:38 PM2/29/12
to publice...@googlegroups.com
Buenas tardes Edgar, como dices la aplicacion sigue abierta pero minimizada un codigo parecido al tuyo lo baje de este link


Creo que el asunto va por el lado de buscar la aplicacion y matar ese proceso.

Saludos

Elkin Uribe
Medellin - Colombia
Reply all
Reply to author
Forward
0 new messages