DoCmd.OutputTo acOutputReport, "Etat Utilisateur", acFormatRTF, "c:\mes documents\tmp.doc", True 

Private Sub Report_NoData(Cancel As Integer)
    MsgBox "Impossible d'ouvrir l'état : aucune données à afficher",VbCritical
    Cancel = True
End Sub

Private Sub ZoneDetail_Format (Cancel As Integer, FormatCount As Integer) 
    If Me![ nomControle] < "0"  Then 
        Me![SourcEcr].ForeColor = 16777215 
    Else 
        Me ![SourcEcr].ForeColor = 0 
    End If 
End Sub 

DoCmd.OpenReport "Etat Utilisateur", AcView.acViewPreview     
DoCmd.RunCommand acCmdZoom150     
DoCmd.Maximize 

    Dim rpt As Report
    DoCmd.OpenReport "NomEtat", acViewPreview 
    Set rpt = Reports("NomEtat") 
    rpt.ZoomControl = 0 
    SendKeys "{end}"  '<== option pour atteindre la dernière page 
    Set rpt = Nothing 

Me.GroupLevel(2).ControlSource = "LeChampATrier"
Me.GroupLevel(2).SortOrder = False

Function PrintRemoteReport(ByVal strMDB As String, _
                           ByVal strReport As String, _
                           Optional ByVal iStart As Integer = 1, _
                           Optional ByVal iEnd As Integer = 9999) As Boolean
Dim objAccess As Access.Application
Dim lngRet As Long

    ' gestion d'erreurs
    On Error GoTo PrintRemoteReport_Err

    If Len(Dir(strMDB)) > 0 Then
        ' creation de l'objet Access
        Set objAccess = New Access.Application
        With objAccess
            'ouverture de la base
            .OpenCurrentDatabase strMDB
            'les commandes sont les memes que pour la base en cours
            ' hormis le "objAccess."
            ' ouverture de l'état
            .DoCmd.OpenReport strReport, acViewNormal
            ' impression des pages
            .DoCmd.PrintOut acPages, iStart, iEnd, acHigh
            ' fermeture de l'état sans sauvegarde
            .DoCmd.Close acReport, strReport, acSaveNo
        End With
    End If

PrintRemoteReport_Exit:
    ' libération des objets
    On Error Resume Next
    objAccess.Quit
    Set objAccess = Nothing
    Exit Function

PrintRemoteReport_Err:
    PrintRemoteReport = False
    Select Case Err.Number
        Case 7866:
            'mdb ouverte en mode exclusif
            MsgBox "La base demandée " & vbCrLf & strMDB & _
                vbCrLf & " est actuellement ouverte en mode exclusif.  " & vbCrLf _
                & vbCrLf & "Merci de la réouvrir en accès partagé.", _
                vbExclamation + vbOKOnly, "Impossible d'ouvrir la base"
        Case 2103:
            'l'état n'existe pas
            MsgBox "L'état '" & strReport & _
                        "' n'existe pas dans la base " _
                        & vbCrLf & strMDB, _
                        vbExclamation + vbOKOnly, "Etat non trouvé"
        Case 7952:
            'l"utilisateur a fermé le fichier mdb
           PrintRemoteReport = True
        Case Else:
            MsgBox "Error#: " & Err.Number & vbCrLf & Err.Description, _
                    vbCritical + vbOKOnly, "Runtime error"
    End Select
    Resume PrintRemoteReport_Exit
End Function

PrintRemoteReport "d:\temp\db.mdb", "MonEtat", 1, 10

DocmdOpenReport, ReportName, acViewPreview
DoCmd.RunCommand acCmdPreviewOnePage

DoCmd.RunCommand acCmdPreviewTwoPages

CurrentDb.QueryDefs("MaRequeteGraph").SQL = strSQL

Public Declare Sub keybd Lib "user32" Alias "keybd_event" _
  (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long) 
 
 
Public Sub appui_touche(T as long) 
'appuie sur la touche 
keybd T, 0, 0, 0 
'relache la touche 
keybd T, 0, 2, 0 
End Sub

Private Sub Report_Open(Cancel As Integer)
'Agrandi la fenetre au maximum
DoCmd.Maximize
'Ajuste l'affichage de la page à la taille de l'écran
appui_touche (90)
End Sub

Private Sub Commande0_Click()
'Ouvrir Etat en mode Ajusté
DoCmd.OpenReport "E_ESSAI", acViewPreview
DoCmd.Maximize
DoCmd.RunCommand acCmdFitToWindow
End Sub