mit nachstehendem Code drucke ich diese Liste aus, es klappt auch einwandfrei. Aber in den Zeilen 1 bis 3 stehen Spaltenüberschriften usw; diese werden nur auf der ersten Seite mit ausgedruckt.
Wie kann ich diese automatisch auf jeder Seite mit ausdrucken lassen?
Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
If ComboBox1.Value = 2003 Then
Worksheets("2003").Visible = True
Worksheets("2003").Activate
With Worksheets("2003").PageSetup
.Orientation = xlLandscape
End With
With Worksheets("2003").PageSetup
If Range("A963").Value <> "" Then
.PrintArea = "A1:H999"
ElseIf Range("A926").Value <> "" Then
.PrintArea = "A1:H962"
ElseIf Range("A889").Value <> "" Then
.PrintArea = "A1:925"
ElseIf Range("A852").Value <> "" Then
.PrintArea = "A1:H888"
ElseIf Range("A815").Value <> "" Then
.PrintArea = "A1:H851"
ElseIf Range("A778").Value <> "" Then
.PrintArea = "A1:H814"
ElseIf Range("A741").Value <> "" Then
.PrintArea = "A1:H777"
ElseIf Range("A704").Value <> "" Then
.PrintArea = "A1:H740"
ElseIf Range("A667").Value <> "" Then
.PrintArea = "A1:H703"
ElseIf Range("A630").Value <> "" Then
.PrintArea = "A1:H666"
ElseIf Range("A593").Value <> "" Then
.PrintArea = "A1:H629"
ElseIf Range("A556").Value <> "" Then
.PrintArea = "A1:H592"
ElseIf Range("A519").Value <> "" Then
.PrintArea = "A1:H555"
ElseIf Range("A482").Value <> "" Then
.PrintArea = "A1:H518"
ElseIf Range("A445").Value <> "" Then
.PrintArea = "A1:H481"
ElseIf Range("A408").Value <> "" Then
.PrintArea = "A1:H444"
ElseIf Range("A371").Value <> "" Then
.PrintArea = "A1:H407"
ElseIf Range("A334").Value <> "" Then
.PrintArea = "A1:H370"
ElseIf Range("A297").Value <> "" Then
.PrintArea = "A1:H333"
ElseIf Range("A260").Value <> "" Then
.PrintArea = "A1:H296"
ElseIf Range("A223").Value <> "" Then
.PrintArea = "A1:H259"
ElseIf Range("A186").Value <> "" Then
.PrintArea = "A1:H222"
ElseIf Range("A149").Value <> "" Then
.PrintArea = "A1:H185"
ElseIf Range("A112").Value <> "" Then
.PrintArea = "A1:H148"
ElseIf Range("A75").Value <> "" Then
.PrintArea = "A1:H111"
ElseIf Range("A37").Value <> "" Then
.PrintArea = "A1:H74"
ElseIf Range("A4").Value <> "" Then
.PrintArea = "A1:H36"
End If
End With
Worksheets("2003").PrintOut Copies:=1
Worksheets("2003").Visible = xlVeryHidden
Sheets("Bearbeitung").Activate
End If
End Sub
Vielen Dank für Hilfe
Peter S.