Discussion :

[Andry Gogosy]

Bonjours !
J'ai un petit soucis sur mon état....l'orque j'imprime mon état en mode "aperçue avant l'impression" mon application imprime le formulaire.

Code :

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

1
2
3
4
5
6
Dim impres
impres = MsgBox("Voulez vous imprimer le document en cours", vbInformation + vbYesNo + 256, "Impression")
If impres = vbYes Then
    DoCmd.RefreshRecord
    DoCmd.OpenReport "ETAT ORDRE DE MISSION", acViewPreview, "", "", acNormal
End If

Mais si j'imprime directement, il imprime l’état

Code :

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

1
2
3
4
5
6
Dim impres
impres = MsgBox("Voulez vous imprimer le document en cours", vbInformation + vbYesNo + 256, "Impression")
If impres = vbYes Then
    DoCmd.RefreshRecord
    DoCmd.OpenReport "ETAT ORDRE DE MISSION", acViewNormal, "", "", acNormal
End If

Est ce que quelqu’un peut m'aider...

PS: J'utilise MS OFFICE 2019

[tee_grandbois]

bonjour,
la commande OpenReport n'imprime pas mais ouvre seulement un document.
Il faudrait préciser par quelle méthode est effectuée l'impression effective (Macro, VBA, appui sur un bouton ...) ce sont des éléments qu'on ne peut pas deviner là où on se trouve

[Andry Gogosy]

bonjour,
la commande OpenReport n'imprime pas mais ouvre seulement un document.
Il faudrait préciser par quelle méthode est effectuée l'impression effective (Macro, VBA, appui sur un bouton ...) ce sont des éléments qu'on ne peut pas deviner là où on se trouve

Bien sur OpenReport ouvre l'état...ce code ouvre l'état que je veux imprimer.....j'imprime sur le nu ruban et il imprime le formulaire au lieu de l'état....je sais pas pourquoi

[tee_grandbois]

bonjour,
il faudrait en savoir un peu plus sur le formulaire et éventuellement poster le code complet de l'évènement... sinon, je ne vois pas pourquoi cela ne fonctionne pas.
En attendant, il faudrait tester si la ligne ci-dessous:

Code :

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

DoCmd.OutputTo acOutputReport, "ETAT ORDRE DE MISSION", "PDF", "C:\Etat_TEST.pdf"

ajoutée après Docmd.OpenReport effectue bien l'impression ?

[Andry Gogosy]

Bonjours tee_grandboi!
Merci de votre réponse.
voila les codes complets de l’événement.

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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
Option Compare Database
 
Private Sub Commande41_Click()
Dim oRst As DAO.Recordset
Dim enrg As String
 
If Me.NewRecord Then
	engr = MsgBox("Veillez confirmer l'enregistrement", vbExclamation + vbYesNo + 0, "Confirmation")
	If engr = vbYes Then
		Set oRst = CurrentDb.OpenRecordSet("SELECT Max(INDICEOM) FROM ORDRE_DE_MISSION WHERE Format(DATEDEBOM,""yy"")=" & Chr(34) & Format(Me.DATEDEBOM, "yy") & Chr(34))
		If Me.MATOM > 0 Then
			Me.MATOM.Enabled = False
			Me.SAOM.Enabled = False
			Me.LIEUOM.Enabled = False
			Me.MOYENTRSP.Enabled = False
			Me.DATEDEBOM.Enabled = False
			Me.DATEFINOM.Enabled = False
			Me.OMPTION.Enabled = False
			Me.MOTIFSOM.Enabled = False
			Me.RESULTOM.Enabled = False
		Else
			Me.MATOM.Enabled = True
			Me.SAOM.Enabled = True
			Me.LIEUOM.Enabled = True
			Me.MOYENTRSP.Enabled = True
			Me.DATEDEBOM.Enabled = True
			Me.DATEFINOM.Enabled = True
			Me.OMPTION.Enabled = True
			Me.MOTIFSOM.Enabled = True
			Me.RESULTOM.Enabled = True
 
		End If
		With oRst
			If Not .EOF Then
				Me![INDICEOM].Value = Nz(.Fields(0).Value, 0) + 1
			Else
				Me![INDICEOM].Value = 1
			End If
			.Close
		End With
	End If
	NUMOM = Format(Me.INDICE, "000")
End If
Dim impres
impres = MsgBox("Voullez vous imprimer le document en cours", vbInformation + vbYesNo + 256, "Impression")
If impres = vbYes Then
	DoCmd.RefreshRecord
	DoCmd.OpenReport "ETAT ORDRE DE MISSION", acViewNormal, "", "", acNormal
End If
End Sub
 
 
 
 
Private Sub Commande42_Click()
Dim Sup
Sup = MsgBox("Veuillez confirmer la suppression du fichier!", vbCritical + vbYesNo + 256, "Attention")
If Sup = vbYes Then
	DoCmd.RunCommand acCmdDeleteRecord
	MsgBox "Suppression confirmée!"
	DoCmd.RunCommand acCmdRecordsGoToLast 
End If
End Sub
 
 
 
Private Sub DATEFINOM_AfterUpdate()
NBRJOM = (DATEFINOM - DATEDEBOM) + 1
DATEDEPOM = DATEDEBOM
 
End Sub
 
 
Private Sub Form_Current()
If Me.MATOM > 0 Then
	Me.MATOM.Enabled = False
	Me.SAOM.Enabled = False
	Me.LIEUOM.Enabled = False
	Me.MOYENTRSP.Enabled = False
	Me.DATEDEBOM.Enabled = False
	Me.DATEFINOM.Enabled = False
	Me.OMPTION.Enabled = False
	Me.MOTIFSOM.Enabled = False
	Me.RESULTOM.Enabled = False
Else
	Me.MATOM.Enabled = True
	Me.SAOM.Enabled = True
	Me.LIEUOM.Enabled = True
	Me.MOYENTRSP.Enabled = True
	Me.DATEDEBOM.Enabled = True
	Me.DATEFINOM.Enabled = True
	Me.OMPTION.Enabled = True
	Me.MOTIFSOM.Enabled = True
	Me.RESULTOM.Enabled = True
End If
End Sub
 
 
 
Private Sub MATOM_AfterUpdate()
AGENTOM = NOM
SCEOM = SERVICE
FONCTOM = FOCNTIONS
CATOM = CATEGORIE
SAOM = SA
 
 
End Sub
 
Private Sub MOTIFSOM_AfterUpdate()
RESULTOM = "Mission accomplie"
 
End Sub

[tee_grandbois]

bonjour,
est-ce que, par hasard le formulaire, ne s'appellerait pas aussi "ETAT ORDRE DE MISSION" ?
C'est le seul cas où il imprimerait le formulaire à la place de l'état avec l'option acViewNormal, je viens de faire le test.
Si c'est le cas, il faut éviter de nommer des objets différents avec le même nom, d'autant plus que les classes Forms et Reports sont issus du même noyau dans Access

[Andry Gogosy]

Etat: "ETAT ORDRE DE MISSION"
Formulaire: "ORDRE DE MISSION"

au début ça marche très bien.


Mais le plus bizarre ce que si je ferme le formulaire et ouvrir à nouveau il imprime l'Etat...
Je me demande est ce que je fais de fausse manipulation quelque part...

[tee_grandbois]

Mais le plus bizarre ce que si je ferme le formulaire et ouvrir à nouveau il imprime l'Etat...

bizarre en effet ...

et je rectifie ce que j'ai dit précédemment, même avec le même nom que le formulaire, il imprime l'état, j'avais mal regardé l'impression, désolé.