With xlApp.Worksheets(1)
.PageSetup.Orientation = 2
.PageSetup.centerheader = "Report - Confidential"
.Pagesetup.RightFooter = "Page &P" & Chr$(13) & "Date: &D"
.Pagesetup.CenterFooter = ""
End With
xlApp.ActiveWindow.DisplayGridlines = Trueich weiss auch nicht, ob ich das richtig verstehe, denn ich will ja die gridlines auf dem ausdruck haben, also im page setup, und nicht im dokument selber.
xlApp.ActiveSheet.PageSetup.PrintGridlines = Truehallo semeaphoros,
Ich hab doch oben beschrieben, wie man das innert Sekunden herausbekommt?
danke :-*ich weiss auch nicht, ob ich das richtig verstehe, denn ich will ja die gridlines auf dem ausdruck haben, also im page setup, und nicht im dokument selber.
Ups,
Du willst drucken?!?
Dann natürlich so, wie Semeaphoros es nach mir noch beschrieben hat.
Viele Grüße
Andreas