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
Keep Up with TechRepublic