Tabelle drucken ?!
24.05.2004 13:54:20
Brillo
Solbald man draufklickt soll die Spalte a-y mit Inhallt gedruckt werden.
Die leeren Zellen sollen nicht gedruckt werden.
Habe ein Code gefunden, der aber wie immer nicht funzt.
Hat jemand eine Ahnung warum nicht?
Oder weiß jemand nen richtigen Code.
Hier der gefundene Code:
Sub Printlist_Click()
Dim iCol As Integer, iRow As Integer
For iCol = 1 To 4
If Cells(Rows.Count, iCol).End(x1Up).Row > iRow Then
iRow = Cells(Rows.Count, iCol).End(x1Up).Row
End If
Next iCol
ActiveSheet.PageSetup.PrintArea = Range("A1:F" & iRow).Address
ActiveSheet.PrintPreview
End Sub
Vielen Dank
Erik