Hallo liebe Helfer,
bei uns auf der Arbeit wird über ein Makro ein Tabellenblatt erzeugt.
Dieses müssen wir monatlich für 29 Anlagen aktualisieren und ausrucken.
Allerding passt nach Ablauf des Makros nicht alles auf eine Seite, es muß jedesmal auf Seitenansicht und anpassen auf 1 Seite markiert werden.
Nun dachte ich mir ich zeichne es auf und füge es kurz vor Ende des Makros ein.
So weit so gut, nur geht er dann jedesmal in die Seitenansicht die geschlossen werden muß.
Wie kann das verhindert werden.
Hier der aufgezeichnete Code:
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "Intervall: S = pro Schicht; T = täglich; M = monatlich"
.CenterFooter = "erstellt am: 31.07.2013 10:52:38"
.RightFooter = "Seite &P/&N"
.LeftMargin = Application.InchesToPoints(0.590551181102362)
.RightMargin = Application.InchesToPoints(0.590551181102362)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0.354330708661417)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.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
ActiveWindow.SelectedSheets.PrintPreview
Danke im voraus
Gruß Jürgen