Ich habe mehrere Sheets die gedruckt werden sollen.
Bei den Sheets stehen Preise, welche ich durch Shapes verstecken will, sodass diese nicht gedruckt werden.
Diese Funktion hat so auch schon mal funktioniert und die Shapes würden genau über den richtigen Positionen sitzen.
Seit neustem kommt aber der Fehler :

Laufzeitfehler '1004':
Der angegebene Wert ist außerhalb des zulässigen Bereichs.

Unten mal mein Code. 

Vielen Dank schon mal.

Sub PrintWithoutPricing()



Dim AS4_ws As Worksheet
Dim Plant_ws As Worksheet
Dim Summary_ws As Worksheet

Dim AS4_s As Shape
Dim Plant_s As Shape
Dim Summary_s_1 As Shape
Dim Summary_s_2 As Shape
 
 
Set AS4_ws = Worksheets("AS4 Spec")
Set AS4_s = AS4_ws.Shapes.AddShape(msoShapeRectangle, 693, 8, 111, 30) <--- Hier tritt der Fehler auf


Set Plant_ws = Worksheets("Plant Spec")
Set Plant_s = Plant_ws.Shapes.AddShape(msoShapeRectangle, 722, 8, 90, 30) <--- Überspringe ich den ersten Fehler, tritt hier auch ein Fehler auf

Set Summary_ws = Worksheets("Summary")
Set Summary_s_2 = Summary_ws.Shapes.AddShape(msoShapeRectangle, 545, 155, 615, 5000)
Set Summary_s_1 = Summary_ws.Shapes.AddShape(msoShapeRectangle, 354, 200, 180, 55)

AS_s.Name = "AS4 Spec"
Plant_s.Name = "Plant Spec"
Summary_s_1.Name = "Summary_1"
Summary_s_2.Name = "Summary_2"

Dim Sheet As Worksheet
Worksheets("Project Spec").PageSetup.Orientation = xlLandscape
Worksheets("Commercial Spec").PageSetup.Orientation = xlLandscape
Worksheets("AS4 Units").PageSetup.Orientation = xlPortrait
Worksheets("AS4 Spec").PageSetup.Orientation = xlLandscape

For Each Sheet In Worksheets
If Sheet.Visible = True Then
Sheet.PrintPreview
End If
Next Sheet
AS_s.Delete
Plant_s.Delete
Summary_s_1.Delete
Summary_s_2.Delete



End Sub