'Print Single Record on Form.
Dim myForm As Form
Dim PageNo As Integer
PageNo = Me.CurrentRecord
Set myForm = Screen.ActiveForm
DoCmd.SelectObject acForm, myForm.Name, True
DoCmd.PrintOut acPages, PageNo , PageNo , , 1
DoCmd.SelectObject acForm, myForm.Name, False