PdF Schleifenmakro
14.12.2016 20:54:04
Daniel
Ich habe in einer Exceldatei 50 Personalblätter und eine Druckforlage die davon abhängig ist welches Personaldatenblatt aktiv ist.
Wenn ich dies als PDF in einer Schleife exportieren möchte, bleibt mir natürlich durch denn Blattwechsel das Makro stehen, dass heisst er bleibt beim Personalblatt P1 stehen. Ich stehe auf dem Schlauch, kann mir jemand helfen
Sub Drucken_AdF()
Dim Tbl
'Änderungen an allen Personalblätter P1-P50
For Tbl = 1 To 3
Sheets("P" & Tbl).Select
Abrechnung
Next Tbl
End Sub
Sub Abrechnung()
With Sheets("BriefD").PageSetup
.PaperSize = xlPaperA4 'Festlegung auf Hochformat
.Orientation = xlPortrait 'Seitenbreite definieren
.FitToPagesWide = 1 'Seitenhöhe definieren
.FitToPagesTall = False
.Zoom = False
Sheets("BriefD").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Range("E4").Value & "_" & Format(Date, "YYYYMMDD") & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End With
End Sub
Gruss Daniel