Druckbereich - Probleme
Harald
hab da ein kleines Problem, das für euch glaub ich ein Kinderspiel ist es zu lösen.
hab mir einen sourcecode geschrieben wie folgt:
Sub workbook_beforeprint(cancel As Boolean)
Dim i As Integer
Dim c As Range
Dim br As Range
Set br = Range("a4", Range("a65536").End(xlUp))
i = 0
For Each c In br
If Not IsEmpty(c.Value) Then
i = i + 1
End If
Next c
ActiveSheet.PageSetup.PrintArea = "A4:P" & i + 3
ActiveSheet.PageSetup.LeftFooter = Application.ActiveWorkbook.FullName
ActiveSheet.PageSetup.CenterFooter = "Testdatei"
ActiveSheet.PageSetup.RightFooter = Now
End Sub
obwohl der Druckbereich hier bei A4 beginnen soll, werden mir auch die Zeilen A1:A3 gedruckt.
weis hier jemand rat?
Danke im voraus
Harald