Kopfzeille aus Druckbereich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Bernd,
so sollte es gehen. Du musst halt nur die Druckeigenschaften entsprechend anpassen (sind im Moment auskommentiert). Gedruckt wird automatisch auf dem Standarddrucker.

Sub Bereichdrucken()
Dim StrBereich As String
Dim StrHead As String
Dim StrZeile As String
Dim StrSpalte As String
StrBereich = Selection.Address
StrZeile = Selection.Row
StrSpalte = Selection.Column
StrHead = Cells(StrZeile, StrSpalte + 1).Text
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = StrBereich
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = StrHead
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
'        .LeftMargin = Application.InchesToPoints(0.787401575)
'        .RightMargin = Application.InchesToPoints(0.787401575)
'        .TopMargin = Application.InchesToPoints(0.984251969)
'        .BottomMargin = Application.InchesToPoints(0.984251969)
'        .HeaderMargin = Application.InchesToPoints(0.4921259845)
'        .FooterMargin = Application.InchesToPoints(0.4921259845)
'        .PrintHeadings = False
'        .PrintGridlines = False
'        .PrintComments = xlPrintNoComments
'        .PrintQuality = 1200
'        .CenterHorizontally = False
'        .CenterVertically = False
'        .Orientation = xlLandscape
'        .Draft = False
'        .PaperSize = xlPaperLetter
'        .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 = ""
End With
Application.PrintCommunication = True
Selection.PrintOut
End Sub

Gruß
Frank

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread