Access - Imprimir formulario

Hola a todos, intentando solucionar un problema que tenia he podido contactar con este foro, antes de hacer la pregunta, lo he estado ojeando y he encontrado esta solucion pero me da error, a ver si alguien me puede ayudar.En la linea 7 que hay que poner.
Lo que estoy intentando es imprimir la pantalla actual de un formulario. Saludos

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

No lo hagas.

Los formularios están pesandos para interactuar con datos en pantalla, no para ser imprimidos. Para eso están los informes.

Saludos
José Bengoechea Ibaceta