PDF Druck mit Namen
14.10.2015 16:20:32
wuppi
ich benötige Eure Hilfe . ich würde gerne die einzelnen drucke mit Name versehen und zwar sollte am Anfang Liga LG Gr.I + der Seitenname wie z.B. Begegnungen als Druckname stehen. Oder kann man das Anders erstellen?
Herzlichen Dank vorab für die Hilfe
Sub Gesamtdruck()
' Gesamtdruck Makro
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Begegnungen").Select
Range("A1:Z462").Select
Range("B1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Mannschaftsergebnisse").Select
Range("B1:U23").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Rangliste").Select
ActiveWindow.SmallScroll Down:=-147
Sheets("Legende").Select
Range("B13").Select
End Sub
Anzeige