Druckbereich per Makro festlegen
03.04.2009 19:39:59
P.Mackes
es gibt zwar dazu schon zig Beträge, aber die sind alle so maßgeschneidert, dass es mir da schwer fällt das auf meinen fall anzuwenden oder zu generalisieren
folgende lage
ich möchte für alle worksheets ODER für alle gewählten worksheets dass die printarea automatisch festgelegt wird, sowohl in der breite als auch in der höhe
dabei beginnt die range nicht automatisch in A1, sondern auch links und oben sollen unnötige zeilen und spalten nicht in die printarea einbezogen werden
bis jetzt habe ich leider nur einige der properties festlegen können
Sub PrintArea()
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
.Orientation = xlPortrait
.PaperSize = xlPaperA3
End With
End Sub
es müsste also sowohl ActiveSheet also auch selection.adress entsprechend angepasst werden
kann mir jemand unter die arme greifen?
mfg, Peter