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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen