ich möchte gerne die Druckbereiche B1:F16 und B37:F46
auf einer Seite ausdrucken.
Bisher macht Excel immer 2 Seiten daraus.
Kennt jemand eine Lösung dafür?
Besten Dank für eure Hilfe
Armin
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error GoTo Fehler
Cancel = True 'Drucken wird abgebrochen
Rows("17:36").EntireRow.Hidden = True 'Zeilen dazwischen ausblenden
ActiveSheet.PageSetup.PrintArea = "$B$1:$F$46"
Application.EnableEvents = False
ActiveSheet.PrintOut 'Der Ausdruck
Rows("17:36").EntireRow.Hidden = False 'Zeilen wieder einblenden
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub
Gruß UweD