Druckprbleme in unterschiedlichen Sheets
15.06.2004 10:14:37
Andi
hoffe es kann mir jemand helfen? In der Arbeitsmappe habe ich Workbook und BeforePrint eingegeben. Dort wird folgendes Druckermakro aufgerufen! (siehe unten) In einigen (Persönlich mit Namen versehenen Sheets) habe ich ein Druckerbutton über Symbolleiste Formular etc eingefügt. Hier funktioniert das Drucken normal. Aber in anderen Sheets wo kein Druckerbutton ist, schmeißt er eine Fehlermeldung heraus, sobald man das normale Druckersymbole in der Excel-Symbolleiste drückt. Fehler siehe unten. Kann mir jemand vielleicht einen Rat geben und weiß jemand wie man das ändern kann, so dass er auch in den anderen Sheets druckt!
Sub Druckmakro()
Dim i, x, lRow, lCol As Long
lRow = 0
For i = 1 To 256 Step 1
If IsEmpty(Cells(65536, i)) Then
If Cells(65536, i).End(xlUp).Row > lRow Then _
lRow = Cells(65536, i).End(xlUp).Row
Else
lRow = 65536
Exit For
End If
Next
For x = 256 To 1 Step -1
If IsEmpty(Cells(65536, x)) Then
If Cells(65536, x).End(xlUp).Row <> 1 Then
lCol = x
Exit For
End If
Else
lCol = x
Exit For
End If
Next
ActiveSheet.PageSetup.PrintArea = "$A$1:" & Cells(lRow, lCol).Address !Fehler!!!
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
End Sub