Access - Imprimir formulario tal como se ve en pantalla

Private Sub Command7_Click()

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

End Sub

Private Sub Comando154_Click()

Dim Id As Long

Dim registro As Long

Id = registro

On Error GoTo Err_Comando154_Click

    DoCmd.PrintOut acSelection, Id, Id

Exit_Comando154_Click:

    Exit Sub

Err_Comando154_Click:

    MsgBox Err.Description

    Resume Exit_Comando154_Click

End Sub