Bilder bei Seriendruck aktualisieren
Nico
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
Nico
Anzeige