Variablen Druckbereich mittels VBA einrichten (2)
13.01.2010 08:46:23
Space
Hallo Rudi, Hallo Forums-Mitglieder,
zunächst vielen Dank an dich Rudi für die schnelle Rückmeldung! Leider konnte ich auf deinen Beitrag nicht direkt antworten, deshalb muss ich einen neuen Beitrag aufmachen.
Kurz zum Thema: Ich suche eine Lösung für einen variablen Druckbereich mittels VBA über einen Button.
Der aktuelle Code ist:
Private Sub CommandButton4_Click()
'Druckbereich festlegen und drucken
Dim Zeile As Long
Zeile = Cells(10, 3).End(xlDown).Row
ActiveSheet.PageSetup.PrintArea = "$A$8:$R$" & Zeile
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Nun hat sich jedoch das Problem aufgetan, dass dieser Code nun nicht bis zum Ende der Liste druckt sondern insgesamt 3513 Seiten und davon sind sehr viele leer (um genau zu sein 3511)
Vielen Dank für die Hilfe!
Gruß
Holger