Private Sub ActiveReport_PageStart()
'no modo desing muda a propridade do FIELD2 para
''''''''''''''''''''''''''''''''AR.Field2.SummaryType = ddSMPageCount
'assim ele asumira o total de paginas e no outro FIELD1 a numero da pagina atual
AR.Field1.Text = "PAGINA " & AR.pageNumber & "/"
End Sub