✔ VBA Berichtdruck Seitenanzahl ermitteln

[ronaldo84]

Hallo,

war mir nicht ganz sicher ob ich mein Problem hier oder doch lieber im Office Forum posten sollte. Habe mich dafür entschieden es hier zu posten. Und zwar folgendes: Wir haben eine DB un in der diverse Berichte. Die Berichte werden von einem Formular erstellt nun würde ich gerne vor dem Druck die Seitenanzahl des Berichtes ausgeben lassen. Weiß jemand wie ich das anstellen kann?

Vielen Dank

 

[DrSoong]

Welche Office-Applikation?


Der Doc!

 

[ronaldo84]

Ups habe ich vergessen: Access 2003.

 

[ronaldo84]

Wen es interessiert es gibt folgende Lösung:

Public Function GetPageCount(strReport As String, _ 
                              Optional strFilter As Variant, _ 
                              Optional strWhere As Variant, _ 
                              Optional strArgs As Variant) 
 
  DoCmd.OpenReport strReport, acViewPreview, strFilter, strWhere, acHidden, strArgs 
   GetPageCount = Reports(strReport).Pages 
   DoCmd.Close acReport, strReport, acSaveNo 
 
End Function 

x= GetPageCount("Deinbericht")

Wie die erfahrenen VBA-Programmierer sehen muss der Bericht erst geöffnet werden um die Seitenzahl zu ermitteln, da diese erst nach dem Rendern zur Verfügung stehen. Das ist also doch recht Zeitaufwendig (um nur die Seitenzahlen zu ermitteln). Falls die Berichtsdaten mit VBA verändert werden kann es sein das dieser Weg auch nicht klappt.
MFG