Hallo zusammen,
wie kann ich mehrere Druckbereiche aus einer Tabelle auf ein Blatt drucken? Da ich die Zeilen, die nicht mit gedruckt werden sollen zur Eingabe brauche, kann ich diese nicht ausblenden.
Vielen Dank im Voraus.
Stephan
Hi,
was hindert dich, sie vor dem Druck auszublenden und danach wieder ein?
mfg herbert
AW: mehrere Druckbereiche
HansHei
Hallo Stefan,
mal ein Beispiel
Sub Bereiche_drucken()
Application.ScreenUpdating = False
Range("1:1,8:9,16:17").EntireRow.Hidden = True
Range("B2:E18").PrintOut Copies:=1, Collate:=True
Range("1:1,8:9,16:17").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
Gruß
Hans