Druckbereich
08.01.2006 12:53:21
Klaus
Ich habe eine Tabelle, in der in den Zellen A1:K20000 Verweise stehen. z.B. =Hilfstabelle!F27. Nun möchte ich aber den Druckbereich für die Tabelle so festlegen, dass nur der Bereich ausgedruckt wird, in dem Werte stehen.
Im Archiv habe ich folgendes Makro gefunden, es funktioniert aber nicht.
Sub Drucken()
Dim intRow As Integer, intTmp As Integer
intRow = 20000
For intTmp = intRow To 1 Step -1
If Cells(intTmp, 1).Value <> "" Then Exit For
Next intTmp
ActiveSheet.PageSetup.PrintArea = Range("A1:k" & intTmp).Address
ActiveSheet.PrintPreview
End Sub
kann jemand helfen?
Gruss Klaus