Ver Mensaje Individual
  #1 (permalink)  
Antiguo 09/04/2012, 15:58
oskarrr
 
Fecha de Ingreso: abril-2007
Mensajes: 99
Antigüedad: 18 años
Puntos: 0
Pasar a PDF un form con printform y que el pdf tenga un nombre concreto

Hola amigos.

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