HPageBreaks wird nicht betracht? Oder falsche Anw.
29.01.2015 22:35:22
Vince
ich schreibe eine paar Macros, die meine Mutter auf Arbeit benötigen könnte.
Eben versuche ich den Druckbereich in Abhängigkeit vom Variabel nb_ds_classe zu verschieben/ergänzen und immer für den so verlängerten Druckbereich Seitenumbrüche einbauen damit das Ergebnis schön getrennt ausgedruckt wird.
Irgendwie funzt es nicht... Ich habe den ganzen Tag rumgespielt und gegoogelt und finde meinen Fehler nicht.
Hätte da jemanden eine Idee?
Danke
Vince
With B
.ResetAllPageBreaks
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = Range(Cells(1, 1), Cells(30 * nb_ds_classe - 1) + 21, 9)).Address
For k = 1 To nb_pages
.HPageBreaks.Add Before:=.Range("A" & 30 * (2 * k - 1) + 22)
Next k
.PageSetup.Zoom = False
.PageSetup.BlackAndWhite = True
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
End With
B.PrintPreview
End Sub