Seriendruck in PDF
Nico
Ich habe einen VBA-Code geschrieben, der in Excel einen Seriendruck in PDF ermöglichen soll.
Aus einer Liste (Drop Down Feld in "C5") werden die möglichen Datensätze nacheinander angewählt und dann soll ein PDF erstellt werden. Das habe ich auch geschafft (nach ewigem Probieren). Das Problem ist nur, dass ich die PDFs dann nicht öffnen kann, weil die Dateien fehlerhaft sind.
Kann mir irgendjemand von euch einen Tipp geben, wo der Fehler liegt?
Hier mal mein Code:
Sub Seriendruck()
Application.ActivePrinter = "Adobe PDF auf Ne06:"
'Tabellennamen und Zelle anpassen
Set rZelle = Sheets("Tabelle1").Range("c5")
Set rListZelle = Range(Replace(rZelle.Validation.Formula1, "=", ""))
For Each rListZelle In rListZelle
rZelle.Value = rListZelle.Value
'PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrToFileName:="C:\Desktop\Test\" & rListZelle & _
".pdf"
Next rListZelle
End Sub
Danke schön für Eure Hilfe!
Grüße,
Nico