Dank eurer Hilfe habe ich mein Problem bzgl. dem Seriendruck aus Excel heraus gelöst. Danke schön.
Ich habe nur noch ein kleines Problem bzgl. der Bilder im Dokument (Active-X). Diese aktualisieren sich nämlich im Seriendruck leider nicht. was mache ich falsch?
Sub Seriendruck()
'Tabellennamen und Zelle anpassen
Set rProjekt = Sheets("Property Template").Range("b3")
Set rZelle = Sheets("Property Template").Range("ab3")
Set rListZelle = Range(Replace(rZelle.Validation.Formula1, "=", ""))
'Auswahl aller Werte des Drop-Downs nacheinander
For Each rListZelle In rListZelle
rZelle.Value = rListZelle.Value
'Bilder aktualisieren
Call Bilder_einfügen_Property_Template
'Druckbefehl
Dim strPfad, strName, strPrinter As String
strPfad = "C:\Daten\" & rProjekt & "\"
With ActiveSheet
strName = rListZelle
strPrinter = Application.ActivePrinter
Application.ActivePrinter = "FreePDF auf Ne01:"
.PrintOut ActivePrinter:=Application.ActivePrinter, _
PrintToFile:=True, PrToFileName:=strPfad & strName & ".ps"
Shell ("c:\program files\freepdf_xp\freepdf.exe " & strPfad & strName & ".ps" & " /a /d _
_
/x")
End With
Application.ActivePrinter = strPrinter
Next rListZelle
Call Bilder_einfügen_Property_Template
End Sub
Danke & Grüße,Nico