Ich habe hier noch mal ein kleines Problem und komme einfach nicht weiter.
Untenstehend ist der Cod den Daniel mir erweitert hat, damit ich, wenn die Anzahl der Zeilen die beschrieben sind größer 40 ist, auf 2 Seitigen Druck umgestellt wird.
Leider Kommt jetzt immer ein Debugg Fehler
in der Zeile: rngDruck = Range("A1").CurrentRegion
mit der Bemerkung Objectvariable oder With Blockvariable nicht festgelegt. Weiss jemand woran das liegt.
hier noch mal der complette Code:
Private Sub CommandButton3_Click()
dim rngDruck as range
dim AnzSeiten as integer
rngDruck = range("A1").currentregion
if rngDruck.rows.count
Der Druckbereich ist A1:N40 oder max. N100
Grüße Karl