RichtextBox sous Access 2000

Bonjour,

Je suis en cours de réaliser sous access 2000, un formulaire ayant le contrôle RictextBox, je bloque sur l'impression du contenu, j'ai trouver sur le site Microsoft "Comment configuere le contrôle RichtextBox pour l'impression", l'ordre Printer. ne fonctionnne pas avec access 2000, par quoi doit on le remplacer ou quelle est la méthode pour imprimer un RichTextBox.

Merci de votre aide.

'*** dans les déclarations :

Private Const CCHDEVICENAME As Long = 32& 
Private Const CCHFORMNAME As Long = 32& 
Private Const PD_RETURNDC As Long = &H100 
Private Const PD_RETURNIC As Long = &H200 
Private Const NULL_PTR As Long = 0& 

Private Type DEVMODE 
    dmDeviceName As String * CCHDEVICENAME 
    dmSpecVersion As Integer 
    dmDriverVersion As Integer 
    dmSize As Integer 
    dmDriverExtra As Integer 
    dmFields As Long 
    dmOrientation As Integer 
    dmPaperSize As Integer 
    dmPaperLength As Integer 
    dmPaperWidth As Integer 
    dmScale As Integer 
    dmCopies As Integer 
    dmDefaultSource As Integer 
    dmPrintQuality As Integer 
    dmColor As Integer 
    dmDuplex As Integer 
    dmYResolution As Integer 
    dmTTOption As Integer 
    dmCollate As Integer 
    dmFormName As String * CCHFORMNAME 
    dmUnusedPadding As Integer 
    dmBitsPerPel As Long 
    dmPelsWidth As Long 
    dmPelsHeight As Long 
    dmDisplayFlags As Long 
    dmDisplayFrequency As Long 
End Type 

Private Type DEVNAMES 
    wDriverOffset As Integer 
    wDeviceOffset As Integer 
    wOutputOffset As Integer 
    wDefault As Integer 
End Type 

Private Type InformationImprimante 
    lStructSize As Long 
    hwndOwner As Long 
    hDevMode As Long 
    hDevNames As Long 
    hdc As Long 
    flags As Long 
    nFromPage As Integer 
    nToPage As Integer 
    nMinPage As Integer 
    nMaxPage As Integer 
    nCopies As Integer 
    hInstance As Long 
    lCustData As Long 
    lpfnPrintHook As Long 
    lpfnSetupHook As Long 
    lpPrintTemplateName As String 
    lpSetupTemplateName As String 
    hPrintTemplate As Long 
    hSetupTemplate As Long 
End Type 

Private Declare Function GlobalLock Lib "kernel32" ByVal hMem As Long) As Long 
Private Declare Function GlobalUnlock Lib "kernel32" ByVal hMem As Long) As Long 

    Dim imprimanteSelectionne As InformationImprimante 
    Dim infoDevice As DEVMODE 
    Dim adresseStructureDEVMODE As Long 
    Dim imprimante As Printer 

On Error GoTo Saut 
With imprimanteSelectionne 
    .lStructSize = Len(imprimanteSelectionne) 
    .hDevMode = NULL_PTR 
    .hDevNames = NULL_PTR 
    .flags = PD_RETURNIC 
End With 

adresseStructureDEVMODE = GlobalLock(imprimanteSelectionne.hDevMode) 

Printer.FontName = "Courier" 
Printer.FontSize = 10 

Printer.Print "Tes données" 

Printer.EndDoc 
adresseStructureDEVMODE = GlobalUnlock(imprimanteSelectionne.hDevMode) 

Exit Sub 

Saut: 
Printer.KillDoc 

End Sub 

Coloration syntaxique automatique