Reply to Message

May be this is what you required to print the current record you are viewing.

Private Sub PRINT_Click()
On Error GoTo Err_PRINT_Click

Dim MyForm As Form
Dim record_num As Long

stDocName = "YOUR_FORM_NAME"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
record_num = MyForm.CurrentRecord
DoCmd.PrintOut acPages, record_num, record_num


Exit_PRINT_Click:
Exit Sub

Err_PRINT_Click:
MsgBox Err.Description
Resume Exit_PRINT_Click

End Sub