Excel VBA: Seite einrichten und drucken

Axel · 2020-02-28T09:31:42+00:00

Hallo zusammen, 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 Es sollte folgendes passieren: - 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

Hallo Nepumuk,
vielen Dank dafür. Ich hab auch mal was kommentiert, was ich denke verstanden zu haben:

Private Sub CommandButton21_Click()
' Identifiziert den ausgefüllten Bereich ab Zelle A1 in den Spalte A:I
With Range(Cells(1, 1), Cells(Cells(Rows.Count, 5).End(xlUp).Row, 9))
' Legt den Wiederholungsbereich für jede Seite fest, A1:I11 inkl. Grafiken
.PageSetup.PrintTitleRows = "$1:$11"
.PrintTitleColumns = ""
' Formatierung Querformat
.Orientation = xlLandscape
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.78740157480315)
.BottomMargin = Application.InchesToPoints(0.78740157480315)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
' Seitenansicht: Erweiterung bis einschließlich Spalte I
.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
.PrintOut preview:=True
End With
End Sub

Hallo zusammen,
falls jemand diesen Thread noch beachtet, ich habe folgenden Code, der doch eigentlich funktionieren sollte, aber an der Stelle " ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
" erscheint eine Fehlermeldung.
Bitte kann mir jemand sagen, warum?
Vielen Dank vorab
Axel

Sub Seite_einrichten()
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$11" 'Wiederholungszeilen pro Seite
.PrintTitleColumns = ""
.PrintArea = ""
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.31496062992126)
.RightMargin = Application.InchesToPoints(0.31496062992126)
.TopMargin = Application.InchesToPoints(0.393700787401575)
.BottomMargin = Application.InchesToPoints(0.393700787401575)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlLandscape 'Querformat
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
ActiveSheet.HPageBreaks(1).DragOff Direction:=xlDown, RegionIndex:=1
ActiveWindow.View = xlNormalView
Application.Dialogs(xlDialogPrint).Show
End Sub

Excel VBA: Seite einrichten und drucken

Forumthread: Excel VBA: Seite einrichten und drucken

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial