Access - Imprimir formulario tal como se ve en pantalla(II)

Ya pregunté por esto antes. Hector me respondió esto:

On Error GoTo Err_Command7_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = "Form1"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Command7_Click:
Exit Sub

Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click

Con esto consigo imprimir tal y como se ve el formulario en pantalla (con colores y cuadros de texto) pero el problema es que me imprime toooooooodos los registros (unos 500)

Cómo lo hago para imprimir SÓLO el actual (el que estoy viendo) ?

¿Y algo de este tipo?

Private Sub Comando28_Click()
On Error GoTo Err_Command7_Click

DoCmd.PrintOut acSelection
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

Exit_Command7_Click:
Exit Sub

Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click

Saluditos,
Uxmal

Ya lo habia solucionado! ;) muchas gracias de todas formas.

Lo hice así:

On Error GoTo Err_Command7_Click

Dim stDocName As String
Dim MyForm As Form

stDocName = "Form1"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut (acSelection) <-- con este parámetro
DoCmd.SelectObject acForm, MyForm.Name, False

Exit_Command7_Click:
Exit Sub

Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click