Excel VBA: Seite einrichten und drucken
28.02.2020 09:31:42
Axel
ich hab schon ausgiebig recherchiert, zwar Ansätze, aber noch nicht die Lösung gefunden.
https://www.herber.de/bbs/user/135505.xlsm
Im Tabellenblatt 1 gibt einen CommandButton (Druck), bei dem folgender Code hinterlegt ist:
Private Sub CommandButton21_Click()
With Range(Cells(1, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 9))
.PageSetup.PrintTitleRows = "$1:$11"
.PrintOut preview:=True
End With
End Sub
- identifiziere ab Zelle A1 die letzte beschriebene Zeile in den Spalten A:I
- der Bereich A1:I11 soll bei Mehrseitendruck als Kopfzeile wiederholt werden (inkl. der Grafiken, die hier nur exemplarisch eingefügt sind)
- aktuell ist der beschriebene Bereich vor dem Druck als Seitenansicht dargestellt, in der Endlösung kann aber auch einfach gedruckt werden (dann einfach: .PrintOut ?)
Was noch fehlt ist die Formatierung. Ich habe zum Thema "Seite einrichten" gelesen, dass man mit FitToPagesWide and -Tall etwas vorgeben kann, aber wie programmiert man, wo ein Seitenumbruch automatisch stattfindet, wenn das zu druckende länger als 1 Seite ist?
Es müsste auch noch hinterlegt werden, dass der Druck im Querformat stattfinden soll.
Wieder einmal vielen Dank vorab für eure Hilfe.
Beste Grüße
Axel