PDF-druck - DateiNamen per Code mitgeben
k
Ich nutzte unten stehenden Code um dann aus einer Userform heraus ein Formular als PDF auszuwerfen.
Die meisten User nutzen den FreePDF XP2 - der beim Druck ein Menüfenster öffent um einen Namen dem Doument zu geben, bzw. den Speicherort festzulegen.
Frage: Kann man einem Dokument das als PDF gedruckt wird einen Namen bereits "mitgeben" ?!
Gruß
Kay
'#######################################'
' PDF-Drucker suchen '
'#######################################'
Public Sub PDF_Drucker_Einstellen()
Dim Mywsh
Dim Druckers
Dim I
Dim Drucker As String
Drucker = Application.ActivePrinter
Worksheets("Basic").Cells(21, 13) = Drucker
Set Mywsh = CreateObject("WScript.Network")
Set Druckers = Mywsh.EnumPrinterConnections
For I = 0 To Druckers.Count - 1 Step 2
If LCase(Druckers.Item(I + 1)) Like "*" & "pdf" & "*" Then
Mywsh.SetDefaultPrinter Druckers.Item(I + 1)
Exit For
End If
Next
'MsgBox Drucker & VBA.Chr(13) & Application.ActivePrinter
End Sub
Public Sub DruckerZurücksetzen()
Application.ActivePrinter = Worksheets("Basic").Cells(21, 13)
'MsgBox Application.ActivePrinter
End Sub
Anzeige