Reply to Message

This solution works fine for me:

Private Sub command35_Click()
'Print current record
'using Invoice.
If IsNull(Me!JobNumber) Then
MsgBox "Please select a valid record", _
vbOKOnly, "Error"
Exit Sub
End If
DoCmd.OpenReport "Invoice", , , _
"JobNumber = " & Me!JobNumber
End Sub

However if I change the form type to Data Entry I get a blank report printed (no data on it). If I change it back to not Data Entry it is fine. I want to print a record from a data entry sheet when the record is added. Can you help?