Print_Titles

Forumthread: Print_Titles

Print_Titles

22.06.2022 10:53:04

Basti

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

4
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

AW: Print_Titles

22.06.2022 11:04:56

UweD

Hallo
erstmal:
du musst nicht erst "" setzen und dann den Wert.
Kann es sein, dass du mit 2 unterschiedlichen Tabellenblättern arbeitest?
Beziehe dich mal auf das tatsächlich Gewünschte


    With Sheets("Tabelle1").PageSetup
.LeftHeader = "&D"
.CenterHeader = "&F"
.RightHeader = "&P"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With

LG UweD

AW: Print_Titles

22.06.2022 11:16:13

Basti

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-----

AW: Print_Titles

22.06.2022 12:12:44

Basti

Hallo Zusammen,
hat niemand eine Idee, wo der Fehler liegen könnte?
Vieel Grüße
Basti

AW: Print_Titles

22.06.2022 13:12:58

UweD

Hallo
ich konnte das Problem nun bei mit ebenso feststellen.
Es scheint, an dem "Application.PrintCommunication = False" vor der Zuweisung zu liegen.
Kommentiere das mal aus ' oder setze auf True
Wird zwar was langsamer, aber du kannst ja überflüssige Anweisungen weglassen
Ursache: ?

Beliebteste Forumthreads (12 Monate)

Forumthread: Print_Titles

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

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread