Druckbereich per VBA festlegen
reinhardt
ich möchte jeweils per Button den Druckbereich einer Liste oder einer Übersicht im gleichen Tabellenblatt festlegen und dann ausdrucken.
Bei der Liste (A: D )muß die letzte Eintragung in Spalte C gesucht werden, jedoch hat die Liste 4 Spalten.
Bei der Liste (F:M) muß die letzte Eintragung in Spalte F gesucht werden, jedoch hat die Liste 8 Spalten.
Meine kläglichen versuche ergeben nur eine Fehlermeldung.
Wer kann helfen?
Gruß Reinhardt.
Sub Print_Liste()
Sheets("Liste").Select
Range("C" & Cells(Rows.Count, 3).End(xlUp).Row).Activate
x = ActiveCell.Offset(0, 1).Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & x
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Range("A1").Select
End Sub