Print Area auswählen
08.05.2024 11:33:57
René
ich versuche mich seit Stunden an folgendem Problem:
über eine Datenauswahl-Liste kann ein Druckbereich ausgewählt werden (z.B. 1-2 für die jeweiligen Seiten).
Daraufhin wird über Sverweis der Druckbereich (z.B: "A1:C38" in die Zelle J5 geschrieben.
Mit folgendem Makro soll die Seitenansicht erfolgen:
Sub druckvorschau ()
Dim db As String
db = Range("J5").Value
MsgBox (db)
With ActiveSheet.PageSetup
.PrintArea = db
End With
Worksheets("Formular aus Bögen").PrintPreview
End Sub
Bei .PrintArea = db bricht das Makro mit Laufzeitfehler 1004 - Bezug ist ungültig ab.
Hat jemand eine Idee. Schon mal herzlichen Danke.
Anzeige