Mit VBA PDFs ausdrucken und automatisch benennen
10.03.2015 10:11:26
Bonduca01
Ich habe eine Tabelle 3, die sich je nach ausgewählter Nummer in der Dropdown-Liste anpasst.
Ich habe auch einen Code, der mir die Tabelle 3 für jede Eintragung der Dropdown-Liste ausdruckt.
Ich hätte aber gerne, dass es nicht ausgedruckt wird, sondern als PDF gespeichert wird und der Name, der in der Dropdown Liste ausgewählt wurde verwendet wird.
Dieser Name findet sich auch in A1 wieder.
Sub Print_All()
Sheets("Tabelle3").Select
Dim objCmbo As Object
Dim intC As Integer, intIndex As Integer
On Error GoTo ErrExit
Application.ScreenUpdating = False
Set objCmbo = Sheets("Tabelle3").Shapes("Dropdown 1")
intIndex = objCmbo.DrawingObject.ListIndex
For intC = 1 To objCmbo.DrawingObject.ListCount
objCmbo.DrawingObject.ListIndex = intC
Call Ausblenden
objCmbo.Parent.PrintOut
Call Einblenden
Next
objCmbo.DrawingObject.ListIndex = intIndex
ErrExit:
Set objCmbo = Nothing
Application.ScreenUpdating = True
End Sub
Wahrscheinlich muss also die Zeile objCmbo.Parent.PrintOut angepasst werden.
Hat jemand Ideen dazu?
Anzeige