Hi
I currently send a copy of an Invoice report using the following code that all works fine:
Private Sub Command81_Click()
Dim stDocName As String
stDocName = "ReportInvoice"
DoCmd.OpenReport stDocName, acPreview, , "[ID] = " & Me.ID
DoCmd.SendObject acSendReport, "RptInvoice"...