Druck nur einmal
26.08.2007 19:44:00
chris58
Ich habe diesen Code für den Druck einer Seite, wobei nur die Zeilen gedruckt werden, wo Formeln bzw. schon Berechnungen stehen, von Dir. Jetzt habe ich gerade festgestellt, daß zwar beim ersten Aufruf die Seite so angezeigt wird, wie es sein soll und auch gedruckt wird, jedoch wenn man das ganze nochmal aufruft, dann ist nur die Statuszeile mehr zum drucken als Vorschau vorhanden und die weiteren Zeilen nicht mehr. Kannst Du mir helfen, dieses Problem zu beseitigen ?
Danke im voraus
chris
Option Explicit
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.PrintPreview
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$" & LoN
End Sub
Anzeige