| yamidcct |  |
|
2009-11-13 16:26 - Respuestas: 0 - Tema nº: 2635705
Windows XP Profesional .
Cordial Saludo
Estoy haciendo un programa que tiene un formulario donde abro e imprimo un archivo en pdf. el problema radica en que el archivo tiene clave para abrir.
necesito que al dar click en un boton se abra e imprima el archivo e introduzca automaticamente la clave para poder imprimirlo.
Tengo el siguiente código para eso pero al ejecutarlo me abre adobe reader y me pide la clave del archivo y no quiero eso.
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
Private Sub cmbabrir_Click()
cmdabrir.ShowOpen
txtdireccion_archivo.Text = cmdabrir.FileName
cmbimprimir.Enabled = True
End Sub
Private Sub cmbimprimir_Click()
cmbimprimir.Enabled = False
Call Imprimir(Me.hwnd, txtdireccion_archivo.Text)
End Sub
Private Sub Imprimir(ByVal HwndForm As Long, ByVal Ruta As String)
Dim lRet As Long
lRet = ShellExecute(HwndForm, "Print", Ruta, ByVal "", 0&, 7)
End Sub
Muchas gracias por su ayuda.
| |
|
|
