mit folgendem Makro wird von einer tabelle nur soviel ausgedruckt, wie in der ersten Spalte mit Werten "" ansgefüllt ist:
Sub drucken()
For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Trim(Cells(x, 1)) "" Then anzzeilen = x
Next x
Range("A1:F" & anzzeilen).Select
Selection.PrintOut Copies:=1
Range("B1").Select
End Sub
Nun haben die Tabellenblätter jedoch Rahmen, die dann direkt unter der letzten befüllten Zelle abgeschnitten werden.Wie kann ich das ändern, dass die komplette Seite ausgedruckt wird, auf der sich in der ersten Spalte der letzte Wert "" befindet?
Gruß
Hans