Thema Datum  Von Nutzer Rating
Antwort
28.11.2024 15:56:33 Andreas 1970
NotSolved
28.11.2024 17:23:01 Anderas 1970
NotSolved
28.11.2024 20:09:00 ralf_b
NotSolved
Blau Kopfzeile per Makro aktualisieren
29.11.2024 08:19:49 Gast48335
NotSolved
29.11.2024 18:01:59 ralf_b
*****
Solved
02.12.2024 15:06:48 Andreas 1970
NotSolved

Ansicht des Beitrags:
Von:
Gast48335
Datum:
29.11.2024 08:19:49
Views:
102
Rating: Antwort:
  Ja
Thema:
Kopfzeile per Makro aktualisieren

Moin Ralf

 

danke für deine Unterstützug und den Ansatz. Habe mich gleich mal versucht und Fehlermeldungen bekommen

Du siehst es lernt noch ;-)

Muss ich das "sh.PageSetup." vor jede Zeile setzen oder geht das auch globaler und einfacher?


 

Option Explicit

Sub Header()
'*******************************************************Header update bei Print ***************************************************************************************************
Dim sh As Object

Select Case ActiveSheet.Name
Case "Change History and Approvals", "Key"
Case Else

On Error GoTo Ende
   Application.ScreenUpdating = False
    Application.PrintCommunication = True
    'With ActiveSheet.PageSetup
    'With ActiveWindow.PageSetup.SelectedSheets
    For Each sh In ActiveWindow.SelectedSheets
    sh.PageSetup.LeftHeader = Worksheets("Standards").Range("I6") & vbLf & "Rev.:" & " " & Worksheets("Standards").Range("I4") & vbLf & "Date (Rev.):" & " " & Worksheets("Standards").Range("I5")
        sh.PageSetup.CenterHeader = ""
       sh.PageSetup.RightHeader = "&G"
        sh.PageSetup.LeftFooter = ""
        sh.PageSetup.CenterFooter = "&""Arial,Fett""&9&K0070C0PFC" & Chr(10) & "Page &P of &N"
        sh.PageSetup.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
    Next
    Application.PrintCommunication = False
    Application.ScreenUpdating = True
    
    End Select
 
Ende:
End Sub
 


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
28.11.2024 15:56:33 Andreas 1970
NotSolved
28.11.2024 17:23:01 Anderas 1970
NotSolved
28.11.2024 20:09:00 ralf_b
NotSolved
Blau Kopfzeile per Makro aktualisieren
29.11.2024 08:19:49 Gast48335
NotSolved
29.11.2024 18:01:59 ralf_b
*****
Solved
02.12.2024 15:06:48 Andreas 1970
NotSolved