Here is some VBA that I use to print the record that is open in a form.
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
Be sure to change the names of your fields, forms and reports to match what is in your db.
My record ID is ID. The form is named frmClients and the Report is named submission. Put this in the onclick event for the command button.