AW: Druckbereich
06.10.2003 21:42:13
Reinhard
Hi Chris,
dazu dient Extras-Makro_Makros aufzeichnen. Den Makroaufzeichner startest du.
dann gehst duauf auf Drucken und druckst nur die 1te Seite.
Dann Seitenansicht--Layout und veränderst den oberen Rand von 2,5 auf 4,5 o.ä.
Dann schließen der Seitenansicht.
Dann Drucken und bei "ab Seite" die 2 eingeben und drucken.
Dann wieder seitenansicht--layout. wieder auf 2,5 stellen.
Makroaufzeichnung beenden.
Dann hast du ein Makro was du nur noch einem Button (ansicht--Symbolleisten--Formular) zuweisen musst.
Das Makro sieht dann so aus wie untenstehend, allerdings fehlt da die Rückstellung auf 2,5
Gruß
Reinhard
Sub AbSeite2Tiefer()
' Makro am 06.10.2003 von r aufgezeichnet
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=32766, Copies:=1
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(1.77165354330709)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 360
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
End Sub