Auswahl.. Ja...Druck...Nein

Sub Drucken1()
'* H. Ziplies                                     *
'* 13.10.03; 11.06.05; 02.10.05                   *
'* erstellt von Hajo.Ziplies@web.de               *
'* http://Hajo-Excel.de/
'   Formel ist in Spalte N
Dim LoN As Long
Dim LoLetzte As Long
'    unabhängig von Excelversion für Spalte N (14)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 14)), Cells(Rows.Count, 14).End(xlUp).Row, Rows. _
Count)
For LoN = LoLetzte To 2 Step -1
If Cells(LoN, 14)  Empty Then Exit For
Next LoN
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$" & LoN
End Sub