Hallo Zusammen
Ich lösche vor dem Druck mit
ThisWorkbook.Sheets(5).PageSetup.PrintArea = ""
den Druckbereich. Danach lege ich den Druckbereich mit
ActiveSheet.PageSetup.PrintArea = "A1:M" & Range("M" & Rows.Count).End(xlUp).Row
neu fest. Wenn ich das richtig verstehe, wird doch damit die letzte Zeile in Spalte M in der etwas drinsteht ermittelt. Nun ist es so, dass bei mir schon 25 Zeilen vorher das letzte in dieser Spalte steht. Was könnte da falsch sein? Ich habe auch mehrfach die Zellen gelöscht.
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter