Why? It can be done but why not a a Report?
'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...