VBA: Druckbereiche festlegen/erweitern
18.10.2005 11:03:36
David
ich (VBA-Nixkönner /ersten VBA-Zeilen ever s.u.) habe ein Script, dass mir die Druckbereiche festlegt:
Sub Druckbereich()
'Druckbereich festlegen:
Sheet16.PageSetup.PrintArea = "$B$1:$I$56"
'Drucken:
Sheet16.PrintOut
'Druckbereich aufheben:
Sheet16.PageSetup.PrintArea = ""
End Sub
Nun möchte ich aber statt nur Sheet16 etliche andere Sheets+Bereiche auswählen und drucken, ich könnte natürlich PageSetup/PrintOut/PageSetup wiederholen, aber es gibt bestimmt eine elegantere Möglichkeit. (unter LotusScript/1-2-3 geht das mit SELECT-APPEND...)
Danke für Hilfe
daho