ACCESS 97 Selection du Bac d'imprimante

Question

Lorsque je désire imprimer un document dans access via un bouton, j'aimerai pouvoir effectuer un changement de bacs pour certains documents qui seront imprimés.

Exemple: Page 1 bac 1, page 2 bac 2

Merci de me donner le code car j'ai essayé de le chercher sur le web et sur les forums mais sans succès.

Badclown · Answer

Enregistre ton action en tant que macro et regarde le code que ca ta donné
A+

dagon666 · Answer

Merci pour ta réponse mais je l'avais déjà fait et il me propose différents choix comme nombre de copies, d'une page à une autre etc.. mais rien d'intéressant pour mon problème.

Merci quand même

Badclown · Answer

A ok, moi j'avais fait ca sur word et ca me mettait le bac, essaye de faire ta macro sous word et regarde si les codes marche aussi.

A+

dagon666 · Answer

Non c'est tout bon j'ai trouvé merci voici le code

Type zwtDevModeStr
        RGB As String * 94
      End Type

      Type zwtDeviceMode
        dmDeviceName As String * 16
        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
        dmResolution As Integer
        dmTTOption As Integer
        dmCollate As Integer
        dmFormName As String * 16
        dmPad As Long
        dmBits As Long
        dmPW As Long
        dmDFI As Long
        dmDRr As Long
      End Type

A taper dans un module puis

Sub setPaperSource(rptName As String)
         Dim Rpt As Report
         Dim dm As zwtDeviceMode
         Dim DevString As zwtDevModeStr
         Dim DevModeExtra As String

         DoCmd.SetWarnings False 'DoCmd SetWarnings in Microsoft Access 2.0
         ' Set Paper Tray for page 1
         DoCmd.OpenReport rptName, acDesign
         ' Docmd OpenReport in Microsoft Access 2.0
         Set Rpt = Reports(rptName)
         DevModeExtra = Rpt.PrtDevMode
         DevString.RGB = DevModeExtra
         LSet dm = DevString         dm.dmDefaultSource 2  '1 Upper Tray, 2 = Lower Tray, 5 = _
                                 'Envelope Feeder
         LSet DevString = dm
         Mid$(DevModeExtra, 1, 68) = DevString.RGB
         Rpt.PrtDevMode = DevModeExtra
         DoCmd.Save acReport, Rpt.Name
         DoCmd.SelectObject A_REPORT, Rpt.Name, True
         DoCmd.PrintOut A_PAGES, 1, 1

         ' Set Paper Tray for page 2
         DoCmd.OpenReport rptName, acDesign
         Set Rpt = Reports(rptName)
         DevModeExtra = Rpt.PrtDevMode
         DevString.RGB = DevModeExtra
         LSet dm = DevString         dm.dmDefaultSource 1  '1 Upper Tray, 2 = Lower Tray, 5 = _
                                 'Envelope Feeder
         LSet DevString = dm
         Mid$(DevModeExtra, 1, 68) = DevString.RGB
         Rpt.PrtDevMode = DevModeExtra
         DoCmd.Save A_REPORT, Rpt.Name
         DoCmd.SelectObject A_REPORT, Rpt.Name, True
         DoCmd.PrintOut A_PAGES, 2, 2
         DoCmd.Close     ' Closes the report
         DoCmd.SetWarnings True

      End Sub

Dans ce même module

A la prochaine.

dagon666 · Answer

Non c'est tout bon j'ai trouvé merci voici le code

Type zwtDevModeStr
        RGB As String * 94
      End Type

      Type zwtDeviceMode
        dmDeviceName As String * 16
        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
        dmResolution As Integer
        dmTTOption As Integer
        dmCollate As Integer
        dmFormName As String * 16
        dmPad As Long
        dmBits As Long
        dmPW As Long
        dmDFI As Long
        dmDRr As Long
      End Type

A taper dans un module puis

Sub setPaperSource(rptName As String)
         Dim Rpt As Report
         Dim dm As zwtDeviceMode
         Dim DevString As zwtDevModeStr
         Dim DevModeExtra As String

         DoCmd.SetWarnings False 'DoCmd SetWarnings in Microsoft Access 2.0
         ' Set Paper Tray for page 1
         DoCmd.OpenReport rptName, acDesign
         ' Docmd OpenReport in Microsoft Access 2.0
         Set Rpt = Reports(rptName)
         DevModeExtra = Rpt.PrtDevMode
         DevString.RGB = DevModeExtra
         LSet dm = DevString         dm.dmDefaultSource 2  '1 Upper Tray, 2 = Lower Tray, 5 = _
                                 'Envelope Feeder
         LSet DevString = dm
         Mid$(DevModeExtra, 1, 68) = DevString.RGB
         Rpt.PrtDevMode = DevModeExtra
         DoCmd.Save acReport, Rpt.Name
         DoCmd.SelectObject A_REPORT, Rpt.Name, True
         DoCmd.PrintOut A_PAGES, 1, 1

         ' Set Paper Tray for page 2
         DoCmd.OpenReport rptName, acDesign
         Set Rpt = Reports(rptName)
         DevModeExtra = Rpt.PrtDevMode
         DevString.RGB = DevModeExtra
         LSet dm = DevString         dm.dmDefaultSource 1  '1 Upper Tray, 2 = Lower Tray, 5 = _
                                 'Envelope Feeder
         LSet DevString = dm
         Mid$(DevModeExtra, 1, 68) = DevString.RGB
         Rpt.PrtDevMode = DevModeExtra
         DoCmd.Save A_REPORT, Rpt.Name
         DoCmd.SelectObject A_REPORT, Rpt.Name, True
         DoCmd.PrintOut A_PAGES, 2, 2
         DoCmd.Close     ' Closes the report
         DoCmd.SetWarnings True

      End Sub

Dans ce même module

A la prochaine.

nicolas_barraud · Answer

bonjour, j'ai le m&#234;me probl&#232;me avec vb.net (printdocument.printersettings.papersource est readonly)
j'essaie d'imprimer un fichier word avec la m&#233;thode printout:
Dim nvDoc as New Word.DocumentClass()
nvDoc.Application.ActivePrinter = "nom_imprimante"
nvDoc.Application.ActiveDocument.PrintOut()

si qq'un peut m'aider, ca m'enl&#232;verai une grosse &#233;pine du cerveau parce que l&#224; ca pique vraiment trop &#224; mon go&#251;t... ^o^
merci d'avance

ACCESS 97 Selection du Bac d'imprimante

6 réponses

Discussions similaires