hacer imprimir un pdf directamente
Publicado por ruben (33 intervenciones) el 21/09/2004 17:11:40
hola, he encontrado diferentes respuestas acerca de como crear un pdf a partir de un informe, pero no son mi caso yo tengo creados unos archivos pdf y quiero que se impriman con la siguiente instruccion consigo abrirlos pero no imprimirlos, e probado cambiar OPEN por PRINT o PRINTER pero nada no hay forma, haber si podeis ayudarme la instruccion que uso es esta:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim res As Long
res = ShellExecute(Me.hwnd, "Open", "direccion archivo pdf", "", "", 1)
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim res As Long
res = ShellExecute(Me.hwnd, "Open", "direccion archivo pdf", "", "", 1)
Valora esta pregunta
0