This is what I use and then call the function:
Function SendSnap()
On Error GoTo SendSnap_Err
DoCmd.SendObject acReport, "", "SnapshotFormat(*.snp)", "", "", "", "", "", True, ""
SendSnap_Exit:
Exit Function
SendSnap_Err:
If Err = 2487 Then
MsgBox "Please close and reopen report before sending as Snapshot.", , "Reporting Error"
End If
Resume SendSnap_Exit
End Function
What out for word wrapping!
Regards,
Beth M
|