Here is code I use to print the current record using a report based upon a query. I put this code on an on click event for a command button.
Code:
Private Sub Command28_Click()
On Error GoTo Err_Command28_Click
Dim stDocName As String
stDocName = "Submission"
'DoCmd.OpenReport stDocName, acNormal, , "[ID] = Forms!frmClients!ID"
DoCmd.OpenReport stDocName, acViewPreview, , "[ID]=Forms!frmClients!ID"
Exit_Command28_Click:
Exit Sub
Err_Command28_Click:
MsgBox Err.Description
Resume Exit_Command28_Click
End Sub
Make sure to rename the controls to match your names.