Discussion :

[libremax]

bonjour,
Voila j'ai un programme qui crée des etats en mode dynamic et je voudrais selectionner une imprimante spécifique afin que je puisse configurer celle-ci.
si je configure mon etat en manuel
mise en page->imprimante spécifique->je selectionne mon imprimante"SATO"
aprés je peux configurer mon etat.
je travail autour de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

reports("xx").application.printer=application.printers("sato")

mais ça ne valide pas imprimante spécifique.
quelqu'un aurais une idée pour moi ?
merci d'avance.

[libremax]

J'ai trouvé un solution, pour info la voici.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
Option Compare Database
    Type str_DEVMODE
        RGB As String * 94
    End Type
 
    Type type_DEVMODE
        strDeviceName As String * 16
        intSpecVersion As Integer
        intDriverVersion As Integer
        intSize As Integer
        intDriverExtra As Integer
        lngFields As Long
        intOrientation As Integer
        intPaperSize As Integer
        intPaperLength As Integer
        intPaperWidth As Integer
        intScale As Integer
        intCopies As Integer
        intDefaultSource As Integer
        intPrintQuality As Integer
        intColor As Integer
        intDuplex As Integer
        intResolution As Integer
        intTTOption As Integer
        intCollate As Integer
        strFormName As String * 16
        lngPad As Long
        lngBits As Long
        lngPW As Long
        lngPH As Long
        lngDFI As Long
        lngDFr As Long
    End Type
    Type ch_PRTMIP
    chRGB As String * 28
End Type
 
Type type_PRTMIP
    entMargeGauche As Long
    entMargeHaut As Long
    entMargeDroite As Long
    entMargeBas As Long
    entDonnéesSeulement As Long
    entLargeur As Long
    entHauteur As Long
    entTailleDesEléments As Long
    entColonnes As Long
    entEspacementDeColonnes As Long
    entEspacementDeLignes As Long
    entDisposition As Long
    entImpressionRapide As Long
    entFeuilleDeDonnées As Long
End Type
 
Public Function conf(etat As String)
    Const DM_PORTRAIT = 1
    Const DM_LANDSCAPE = 2
    Dim DevString As str_DEVMODE
    Dim DM As type_DEVMODE
    Dim strDevModeExtra As String
    Dim rpt As Report
    DoCmd.OpenReport etat, acDesign
    Dim ChaînePrtMip As ch_PRTMIP
    Dim PM As type_PRTMIP
    Set rpt = Reports(etat)
 
        rpt.Printer = Application.Printers(1)
    ' curieusement il faut récupérer le devicename dans une cellule
    ' sinon il se crée un probleme de configuration d'impréssion
    'remplacer Forms![formulaire].[Texte0] par celui qui vous interesse
    Forms![formulaire].[Texte0] = rpt.Printer.DeviceName
 
 
    If Not IsNull(rpt.PrtDevMode) Then
        strDevModeExtra = rpt.PrtDevMode
        DevString.RGB = strDevModeExtra
        LSet DM = DevString
            DM.lngFields = DM.lngFields Or DM.intOrientation
 
            DM.intOrientation = DM_PORTRAIT     'ou DM.intOrientation = DM_LANDSCAPE
            DM.intPaperLength = 1500            'largeur d'impression
            DM.intPaperWidth = 1000             'longueur d'impression
            DM.intCopies = 4                    'nb de copie
        LSet DevString = DM
 
        ChaînePrtMip.chRGB = rpt.PrtMip
        LSet PM = ChaînePrtMip
            PM.entMargeHaut = 0.5 * 567 ' Définit les marges.
            PM.entMargeBas = 0 '1 * 567
            PM.entMargeGauche = 0.1 * 567
            PM.entMargeDroite = 0 '1 * 567
        LSet ChaînePrtMip = PM ' Met à jour la propriété.
        rpt.PrtMip = ChaînePrtMip.chRGB
 
        Mid(strDevModeExtra, 1, 94) = DevString.RGB
        rpt.PrtDevMode = strDevModeExtra
    End If
    DoCmd.Close acReport, etat, acSaveYes
End Function