Print_Titles

Hallo Zusammen,
ich verzweifel...
ich habe eine Export-Funktion bei der das Tabellenblatt in eine PDF-Datei exportiert wird.
Es funktioniert alles, außer die Print-Titles:
With ActiveSheet.PageSetup
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftHeader = "&D"
.CenterHeader = "&F"
.RightHeader = "&P"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
Ich möchte, dass bei den Header alles gelöscht wird - deswegen ""
Links oben soll das Datum rein, Mitte der Dateiname und Rechts die Seitenzahl.
Stattdessen springt er nach .RightHeader = "&P" komplett durcheinander und macht oben links Datum und Register(durchgestrichen), Mitte bleibt leer, und oben rechts den Dateipfad rein...
Hat jemand vielleicht eine Idee woran das liegen könnte?
Danke und viele Grüße
Basti

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Print_Titles

22.06.2022 11:04:56

UweD

AW: Print_Titles

22.06.2022 11:16:13

Basti

AW: Print_Titles

22.06.2022 12:12:44

Basti

AW: Print_Titles

22.06.2022 13:12:58

UweD

Hallo UweD,
danke für deine Rückmeldung. Leider klappt es nicht - muss an den Code davor/danach liegen...
Vllt erkennst Du ja auf den ersten Blick woran es liegen könnte:
----START----
Application.PrintCommunication = False
ActiveSheet.PageSetup.PrintArea = PArea
'With ActiveSheet.PageSetup
With Sheets("Tabelle1").PageSetup
.LeftHeader = "&D"
.CenterHeader = "&F"
.RightHeader = "&P"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.708661417322835)
.BottomMargin = Application.InchesToPoints(0.708661417322835)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
.PrintErrors = xlPrintErrorsBlank
.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
'Open Save As PDF field
Application.PrintCommunication = True
Application.Dialogs(xlDialogSaveAs).Show arg1:=Name, arg2:=57
End With
End Sub
-----ENDE-----

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread