Code of vb (part-5)

Option Compare Database   'Use database order for string comparisons.
Option Explicit

Private Sub Report_Page()
   
    'Draw a page border around this report.
     Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B
    
End Sub

Private Sub Report_Activate()

    '  Hide built-in Print Preview toolbar.
    DoCmd.ShowToolbar "Print Preview", acToolbarNo
   
End Sub

Private Sub Report_Deactivate()

    '  Show built-in Print Preview toolbar where appropriate.
    DoCmd.ShowToolbar "Print Preview", acToolbarWhereApprop

End Sub