Discussion :

[Milyshyn76]

Bonjour à tous,

J'ai un état au format A3. Lorsque je le lance sur une autre machine, le format par défaut est A4.

Après une heure de recherche, je ne trouve pas de solution concernant le format de mon état.

Quelqu'un connaitrait-il un code permettant de forcer le format de mon état en VBA à son ouverture ????

J'ai tout essayer manuellement, j'opte pour la solution du codage ....

Merci beaucoup

[argyronet]

Bonjour,

J'ai tout essayer manuellement,

Sùr ?
Tu dois pouvoir définir l'imprimante et la personnalisation de ton impression dans la mise en page de ton état...
L'as tu (vraiment) fait (et enregistré) ?

j'opte pour la solution du codage...

Avec la propriété PrtDevMode d'un objet Report, tu peux définir les paramètres relatifs au mode du périphérique d'impression spécifié... ()

Argy

[Milyshyn76]

Fonctionnellement, j'aurais voulu éviter aux utilisateurs d'autres machines de redéfinir les paramètres d'impressions.
Je vais essayer ton astuce .... merci

[Milyshyn76]

Bon, j'ai essayer quelque chose de pas très propre. Je voudrai en faite qu'il force la taille du Papier en A3 lorsque l'état s'ouvre. Donc j'ai mis le code sur l'évènement open ....

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
Private Sub Report_Open(Cancel As Integer)
    'Déclaration des variables
    Dim MonEtat As String
    Dim ChaînePér As ch_DEVMODE
    Dim DM As type_DEVMODE
    Dim chExtraModPér As String
    Dim rpt As Report
 
    MonEtat = "E_Planning_TESTDimension"
 
    Set rpt = Reports(MonEtat)
 
 
    If Not IsNull(rpt.PrtDevMode) Then
        chExtraModPér = rpt.PrtDevMode
        ChaînePér.RGB = chExtraModPér
        LSet DM = ChaînePér
       'DM.lngChamps = DM.lngChamps Or DM.entOrientation    ' Initialise les champs.
 
            If DM.entTaillePapier <> 8 Then
                    DoCmd.Close , , acSaveYes
 
                    DoCmd.OpenReport MonEtat, acDesign
                    DM.entTaillePapier = 8
            End If
 
            LSet ChaînePér = DM                     ' Met à jour la propriété.
        Mid(chExtraModPér, 1, 94) = ChaînePér.RGB
 
        rpt.PrtDevMode = chExtraModPér
    End If
 
End Sub

Il y a un bug à partir de la réouverture de l'état si le format n'est pas A3.

Erreur 2585 : Impossible d'exécuter cette action pendant le traitement d'un évènement d'état.

[argyronet]

Comme l'erreur l'indique, tu ne peux pas exécuter ce code dans l'événement qui régit l'ouverture du Report que tu sollicites...
Du fait que tu connaisses le ReportName, tu peux exécuter un code équivalent depuis un formulaire au moment de lancer l'impression...
Regarde dans l'aide sur le mot clé PrtDevMode, tu as des exemples parlants.

Argy

[Milyshyn76]

La j'ai essayer sur l'évènement d'un bouton, mais il ne prends carrement pas en compte les modifications que je lui demande :

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
Option Compare Database
Option Explicit
 
 
Private Type ch_DEVMODE
    RGB As String * 94
End Type
 
Private Type type_DEVMODE
 
    entOrientation As Integer
    entTaillePapier As Integer
End Type
 
 
Private Sub Commande0_Click()
'Déclaration des variables
    Dim MonEtat As String
    Dim ChaînePér As ch_DEVMODE
    Dim DM As type_DEVMODE
    Dim chExtraModPér As String
    Dim rpt As Report
 
    MonEtat = "E_Planning_TESTDimension"
     DoCmd.OpenReport MonEtat, acDesign
    'MonEtat = Me.OnOpen
    Set rpt = Reports(MonEtat)
 
 
    If Not IsNull(rpt.PrtDevMode) Then
        chExtraModPér = rpt.PrtDevMode
        ChaînePér.RGB = chExtraModPér
        LSet DM = ChaînePér
       'DM.lngChamps = DM.lngChamps Or DM.entOrientation    ' Initialise les champs.
 
        MsgBox (DM.entTaillePapier)
      DM.entTaillePapier = 8
 
    End If
 
    LSet ChaînePér = DM                     ' Met à jour la propriété.
    Mid(chExtraModPér, 1, 94) = ChaînePér.RGB
 
    rpt.PrtDevMode = chExtraModPér
 
    DoCmd.Close acReport, MonEtat, acSaveYes
    DoCmd.OpenReport MonEtat, acViewPreview
    MsgBox (DM.entTaillePapier)
 
 
 
End Sub