Habe eine Frage und hoffe es kann mir jemand helfen!
Ich habe 5 Tabellenblätter welche über ein Makro verändert und einzeln gedruckt werden, so entstehen 52 A4Blätter. (also jede Kalenderwoche)
Ist es möglich anstatt des Druckvorganges diese 52 A4Blätter in einer PDF-Datei abzuspeichern?
Sub A_Schicht()
Sheets("Bereich 1").Select
Range("B18").Select
ActiveCell.FormulaR1C1 = "A"
Sheets("Bereich 2").Select
Range("B18").Select
ActiveCell.FormulaR1C1 = "A"
Sheets("Bereich 3").Select
Range("B18").Select
ActiveCell.FormulaR1C1 = "A"
Sheets("Bereich 4").Select
ActiveCell.FormulaR1C1 = "A"
Sheets("Bereich 5").Select
Range("B18").Select
ActiveCell.FormulaR1C1 = "A"
Range("B19").Select
Application.ScreenUpdating = False
For i = 53 To 2 Step -1
Sheets("Tabelle1").Select
Range("A" & i).Select
Selection.Copy
Sheets("Bereich " & Range("B" & i)).Select
Range("B17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
Application.ScreenUpdating = True
End Sub
Wenn es möglich ist Danke schon mal!