Excel VBA Druckbereich festlegen

[Pascala]

Hallo zusammen,

könnte mir jemand vielleicht ein kleines Makro schreiben das ab A4:K19 (16 Zeilen) einen Druckbereich festlegt.
Danach dann eine Zeile Frei lässt und wieder 16 Zeilen den Druckbereich hinzufügt. (A21:K36)
Und dass dann z.b. bis Zeile 10000 durchläuft?

Danke & viele Grüße.

[Steffl]

Hallo,

ungetestet

Code:

Sub prcDruckbereiche()
   Dim strDruckbereich As String
   Dim lngC As Long
  
   For lngC = 4 To 10000 Step 17
      strDruckbereich = strDruckbereich & Cells(lngC, 1).Resize(16, 11).Address & ","
   Next lngC
   strDruckbereich = Left(strDruckbereich, Len(strDruckbereich) - 1)
      
   ActiveSheet.PageSetup.PrintArea = strDruckbereich
End Sub

[Pascala]

Viele Dank für dein Makro.

Jedoch gibt es leider eine Fehlermeldung.

Fehlermeldung:
Laufzeitfehler#1004´:
Die PrintArea-Eigenschaft des PageSetup-Objektes kann nicht festgelegt werden.

Gelb Markierte Zeile:
ActiveSheet.PageSetup.PrintArea = strDruckbereich

Viele Grüße.

[Steffl]

Hallo,

fahre mal mit dem Mauszeiger über die Variable strDruckbereich. Was wird dir angezeigt.

[Steffl]

Hallo,

ich habe es mal bei mir getestet, der String für den Druckbereich darf nur eine bestimmte Anzahl von Zeichen haben und die ist relativ klein. Geht also nicht.

[Pascala]

Alles klar.

Trotzdem vielen Dank.