printing and updating

Is there an event I can call that will activate when I click File, Print on a report in print preview mode?

There is onPrint event on the Detail, but it comes up whenever I open the report. I want to run some VB code when a person tries to send the report to the printer.

Basically I have a report which prints specific data. I only want this report printed once for the range of data specified. The VB code will save what has been printed and then check this saved data against all future reports to make sure nothing is duplicated on the printer.

Which vb version do u use??If u use vb.net,plz see this:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Event delagation HasOverloaded.OnPrint to OnPrint
AddHandler HasOverloaded.OnPrint, AddressOf OnPrint
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Calling shared print method of HasOverloaded
HasOverloaded.Print("There is no pleasure without Pain")

End Sub

Private Sub OnPrint(ByVal value As Object)
'On Print procedure
Text = "OnPrint : " & value
End Sub


End Class

Public Class HasOverloaded
'Event declaration
Public Shared Event OnPrint(ByVal Value As Object)

'overloaded methods Print event will be raise to notify calling
'application back through event delegation
Overloads Shared Sub Print(ByVal str As String)
RaiseEvent OnPrint(str)
Debug.WriteLine(str)
End Sub
Overloads Shared Sub Print(ByVal ch As Char)
RaiseEvent OnPrint(ch)
Debug.WriteLine(ch)
End Sub
Overloads Shared Sub Print(ByVal ALong As Long)
RaiseEvent OnPrint(ALong)
Debug.WriteLine(ALong)
End Sub
Overloads Shared Sub Print(ByVal Int As Integer)
RaiseEvent OnPrint(Int)
Debug.WriteLine(Int)
End Sub

End Class