Printareaproblem
09.05.2005 09:51:59
Christoph
Jedoch druck bei mir der Drucker absolut nicht aus.
Könnt ihr mir helfen!!!
Mein Code:
Private Sub Schichtdruck_Click()
endup = Range("A65536").End(xlUp).Row
For i = 1 To endup
If Range("D" & i).Value = Date Then
Dim Pa As String
Pa = Range(Cells(i, 3), Cells(i + 60, 46)).Address
Worksheets("Schichtplan").PageSetup.PrintArea = Pa
Exit Sub
End If
Next i
End Sub
Anzeige