Me.pages on report gives 0

[gerard1979]

I Think the problem of me.pages = 0 becomes while the pages are not formatted at the moment the procedure below is running. My question: which procedure to use to kill this problem
thnx in advance,
gerard
Private Sub Report_Activate()
'function for confirmation, gives as parameter the pages of the report, standing to 0
If Bevestigen("U staat op het punt om een overzicht van alle stalen uit te draaien." & vbNewLine & _
"Dit overzicht bevat " & Me.Pages & " pagina's. Weet u zeker dat u het document wilt uitdraaien?&quot Then
DoCmd.PrintOut
DoCmd.Close acReport, Me.Name
Else
'other code for looking a preview or close the report
If Not Bevestigen("Wilt u een afdrukvoorbeeld bekijken?&quot Then
DoCmd.Close acReport, Me.Name
End If
End If
End Sub

 

[Joallyn]

did you ever solve this problem? I'm running into it at the moment, and I'm stumped.

thanks,

J