Seitenanzahl bestimmen schlägt fehl
11.10.2016 14:38:55
Thomas
ich verstehe grad mal wieder Bahnhof..
In einem per Mako festgelegten Druckbereich möchte ich die Anzahl die zu druckenden Seiten angezeigt bekommen. Dazu verwende ich zwei Varianten:
ActiveSheet.HPageBreaks.Count + 1
ExecuteExcel4Macro("GET.DOCUMENT(50)")
Beide liefern mir ein falsches Ergebnis. Es sind 6 Zeilenumbrüche, somit 7 Seiten, angezeigt wird mir jeweils nur 3. Was könnte das Problem sein?
Der vollständige Code dazu:
Private Sub drucken()
Dim leZ As Integer, anzS As Integer
leZ = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
With ActiveSheet.PageSetup
.PrintArea = Range("A1:G" & leZ).Address
End With
'anzS = ActiveSheet.HPageBreaks.Count + 1
anzS = ExecuteExcel4Macro("GET.DOCUMENT(50)")
MsgBox anzS
End Sub
Vielen Dank, Thomas