RichtextBox sous Access 2000

Question

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.

mortalino · Answer

Salut, essai ceci (pas testé en access) : Coloration syntaxique automatique '*** 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

Sub Impression() 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 @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

mortalino · Answer

Re,

bah laisse tomber^^
cela ne fonctionne pas sous Access, désolé !

Bon courage !

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

RichtextBox sous Access 2000

2 réponses

Votre réponse

Discussions similaires