Seitenumbruch
06.03.2006 19:38:10
Dirk
ich möchte ein Druck-Makro erstellen, dass automatisch einen festgelegten Bereich mit klar definierten Seitenumbrüchen druckt, egal was der User vorher alles so angestellt hat. Hier mein erster Versuch, der leider nicht funktioniert:
Sub Makro1()
'Druckbereich definieren
ActiveSheet.PageSetup.PrintArea = "$A$6:$AG$157"
'4 Seiten breit, eine Seite hoch
With ActiveSheet.PageSetup
.FitToPagesWide = 4
.FitToPagesTall = 1
End With
ActiveSheet.ResetAllPageBreaks
Set ActiveSheet.VPageBreaks(1).Location = Range("I6")
Set ActiveSheet.VPageBreaks(2).Location = Range("Q6")
Set ActiveSheet.VPageBreaks(3).Location = Range("Y6")
'Print mal auskommentiert - wir wollen ja nicht soviel Papier verschwenden..
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
.....
Könnt Ihr mir helfen?