Sub PDF()
' PDF Makro
' Tastenkombination: Strg+q
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, ActivePrinter:=True, PrintToFile:=False, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Sub PDF()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False