Ich habe folgendes Problem:
Sub Druckquertest()
Sheets("Gas Schweißprotokoll").Select
Application.Goto Reference:="Druckbereich1"
ActiveSheet.PageSetup.PrintArea.Orientation = xlLandscape
Selection.PrintOut Copies:=1, Collate:=True
Fehlermeldung: Das Objekt wurde nicht gefunden
Danke