comment imprimer une table

bonjour,
dans access même sur un bouton (sur clic):

Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click

    Dim stDocName As String
    Dim MyForm As Form

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

Exit_Commande1_Click:
    Exit Sub

Err_Commande1_Click:
    MsgBox Err.Description
    Resume Exit_Commande1_Click
   
End Sub

cantador