Makro zum Drucken eines bestimmten Tabellenblattes

Sub Drucken_Seite()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub