Tengo una aplicación donde muestros los resultados directamente en un form (en lugar de utilizar crystal report o similares).
He creado un menu donde lista las impresoras por si hay que imprimirlo y todo funciona a la perfección.
El tema está en que si quiero a pasarlo a PDF a través de una impresora PDF virtual, el nombre que me coge el software de PDF es el nombre del proyecto (por ejemplo "mi programa.pdf" y lo que yo prentendía es pasarle ese nombre por parámetro.
Me gustaría que al seleccionar la impresora PDF y que se abra el software que crea el Adobe PDF virtual (uso Acrobat Proffesional) automáticamente apareciera el nombre del fichero pdf que yo le diga, pero no tengo ni idea de si es posible.
Este es mi código abreviado:
Código:
Public Function Obtener_Impresoras()
Dim i As Integer
' recorre las impresoras del sistema y las añade a la lista
For i = 0 To Printers.Count - 1
List1.AddItem Printers(i).DeviceName
Next
End Function
Public Function Establecer(Nombre_Impresora As String)
Dim Prt As Printer
' Establece la impresora que se utilizará para imprimir
For Each Prt In Printers
If Prt.DeviceName = Nombre_Impresora Then
Set Printer = Prt
End If
Next
End Function
Private Sub List1_Click()
ImpresoraDefectoText.Text = List1.Text
End Sub
If List1.ListIndex <> -1 Then
Call Establecer(List1.Text)
'MsgBox "Se usará la impresora: " & _
' Printer.DeviceName & " para imprimir el Presupuesto", vbInformation
End If
Form2.PrintForm
