Recent content by Don Smith

rivate Sub Print_Click() ' Dim strWhere As String ' If Me.Dirty Then 'Save any edits. ' Me.Dirty = False ' End If ' If Me.NewRecord Then 'Check there is a record to print ' MsgBox "Select a record to print" ' Else ' strWhere = "[ID] = " & Me.[ID] '...

I added that to the macro your right that doesnt work however if I take that out that is my original problem. The email attachement is the entire set of reports not just the current one.....sorry for the confusion. Thanks Don

I have a workorder database whereusers enter work orders and press a "Print" command button, the button creates a report and the user then prints the report. I wnat to add a button that will send me an email with the work order( report) to me. The problem is the spefic work order is not...