Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellenblatt von Makroroutine ausschließen
29.05.2024 14:39:19 Michi
*
NotSolved
29.05.2024 14:51:37 Gast63234
Solved
29.05.2024 14:59:48 Gast37110
NotSolved
29.05.2024 17:21:58 ralf_b
Solved
30.05.2024 13:14:36 Gast58813
NotSolved
30.05.2024 13:27:43 Michi
NotSolved
10.06.2024 08:39:35 Marc
NotSolved
10.06.2024 16:32:02 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Michi
Datum:
29.05.2024 14:39:19
Views:
263
Rating: Antwort:
  Ja
Thema:
Tabellenblatt von Makroroutine ausschließen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Tabellenblatt von Makroroutine ausschließen
29.05.2024 14:39:19 Michi
*
NotSolved
29.05.2024 14:51:37 Gast63234
Solved
29.05.2024 14:59:48 Gast37110
NotSolved
29.05.2024 17:21:58 ralf_b
Solved
30.05.2024 13:14:36 Gast58813
NotSolved
30.05.2024 13:27:43 Michi
NotSolved
10.06.2024 08:39:35 Marc
NotSolved
10.06.2024 16:32:02 ralf_b
NotSolved