Zwei versch. Druckbereiche auf einem Blatt
18.11.2007 17:21:51
Jonas
Folgender Code funktioniert:
Sub Jahresturnus_print_februar()
MEINDRUCKER = Application.ActivePrinter
Druckerwahl = Application.Dialogs(xlDialogPrinterSetup).Show
With Sheets("rwkru")
'Druckbereich festlegen:
.PageSetup.PrintArea = "$A$3:$AF$17"
'Drucken:
.PrintOut
'Druckbereich aufheben:
.PageSetup.PrintArea = ""
End With
End Sub
Kann mir jemand sagen wie das heißen muss, wenn ich folgende zwei unterschiedliche Bereiche auf einem Blatt ausdrucken will... $A$3:$A$17 und AG$3:$BI$17 ...?
Wenn ich ("$A$3:$A$17,$AG$3:$BI$17") schreibe bekomme ich zwei Blätter!!!
Gruss,
Jonas
P.S. Ich muss das ganze 12x definieren...das geht doch auch in einem Code...oder?