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