ausgefüllte Zeilen drucken
22.01.2009 13:32:00
thomas
ich habe in einer Liste einen Command Button mit dem ich alle ausgefüllten Zeilen im Tabellenblatt ausdrucke, das Makro druckt aufeinmal nur noch eine Seite, obwohl es 3 ausdrucken müsste..
Hier das Makro, kann bittte jemand mal drauf schauen woran es liegt?
Danke
thomas
Private Sub CMD_drucken1_Click()
Dim intCol As Integer
Dim lngRow As Long
Dim lngrowneu As Long
intCol = 3
With Worksheets(1)
If Application.WorksheetFunction.CountA( _
.Columns(intCol).EntireColumn) > 0 Then
lngRow = .Cells(.Rows.Count, intCol).End(xlUp).Row
Else
MsgBox "Kein Eintrag in der Liste"
End If
End With
Dim Bereich As String
Bereich = "a1:t" & lngRow
Range(Bereich).Select
Selection.PrintOut Copies:=1, Collate:=True
Range("c3").Select
End Sub