wie kann ich in einer Tabelle einen 2. Druckbereich selektieren/makieren und auch
ausdrucken ?
Ich brauch: M38:S67 und N102:W117
mfg walter mb
'Range("M38:W117").Select ' hat keine Wirkung
Rows("70:100").Hidden = True 'ausblenden
' ActiveSheet.PageSetup.PrintArea = "$M$38:$S$67,$N$102:$W$117"
ActiveSheet.PageSetup.PrintArea = "$M$38:$W$117"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("70:100").Hidden = False 'einblenden
' oder so:
With Rows("70:100")
.Hidden = True 'ausblenden
' ActiveSheet.PageSetup.PrintArea = "$M$38:$S$67,$N$102:$W$117"
ActiveSheet.PageSetup.PrintArea = "$M$38:$W$117"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
.Hidden = False 'einblenden
End With
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort