Hallo Community,

ich habe mir ein Makro erstellt, welches mir beim Druck die Kopfzeile, das Seitenformat usw. anpasst. 

Das funktioniert einwandfrei für meine Anwendung. Einzig er wendet da ich es über die Arbeitsmappe aufrufe
"Private Sub Workbook_BeforePrint(Cancel As Boolean)"

auf alle Arbeitsblätter an. Ich möchte aber das Tabelleblatt mit dem Namen "Übersicht" ausschließen.

Kann mir da jemand helfen 

Das ist mein Makro
On Error GoTo Ende
   Application.ScreenUpdating = False
    Application.PrintCommunication = True
    With ActiveSheet.PageSetup
        .LeftHeader = Worksheets("Standards").Range("I6") & vbLf & "Rev.:" & " " & Worksheets("Standards").Range("I4") & vbLf & "Date (Rev.):" & " " & Worksheets("Standards").Range("I5")
        .CenterHeader = ""
        .RightHeader = "&G"
        .LeftFooter = ""
        .CenterFooter = "&""Arial,Fett""&9&K0070C0Page &P of &N"
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .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 = xlPaperA3
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 98  '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 = False
    Application.ScreenUpdating = True
Ende:

Gruß Michael