Cacher la fenêtre de sortie d'impression

**sentenza.yo** · 17/07/2013, 10h34

Bonjour,

J'utilise le code suivant pour générer un fichier pdf à partir d'un état Access:

Code :

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

DoCmd.OutputTo acOutputReport, IIf(etatLangue = 1, "monEtatFR", "monEtatANG"), acFormatPDF, monChemin, False

Une fenêtre de sortie d'impression s'affiche pendant moins d'une seconde, je voudrais rendre totalement invisible cette fenêtre pour l'utilisateur. J'ai essayé à tout hasard le set warning avant et après mais rien ne change. J'ai fouiné sur internet et sur votre forum mais je ne trouve rien sur ce sujet.

Merci par avance.

**loufab** · 19/07/2013, 11h52

Bonjour,

Warning c'est pour les messages des requêtes Actions.

Utilise :

Code :

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

1
2
3
4
5
Docmd.echo false
 
... tes commandes
 
Docmd.echo true

Cordialement,

**sentenza.yo** · 19/07/2013, 16h12

Re,

J'ai donc utilisé docmd.echo avant et après la ligne de code. Je l'ai mis a "true" en premier et à "false" en dernier et vice versa.

Quand je me mets en mode debug c'est bien après cette ligne que la fenêtre de sortie d'impression s'affiche.

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
Public Function GetFilePDF(PnumeroCommande As Long, Pannee As Integer, PcdeLangue As Integer, Pcreation As Boolean) As String
 
 
Dim vFiles As String 
 
DoCmd.Echo False
vFiles = CreateFolder("My PDF Order")
vFiles = vFiles & "\" & "Order " & Pannee & "-" & PnumeroCommande & ".pdf"
DoCmd.Echo True
 
        If (fPasNull(PnumeroCommande) And fPasNull(Pannee)) Then
                    'si ce n'est pas une création on vide la table tblCdeAchat_Entete
                    If Not Pcreation Then sLoadBdc PnumeroCommande, Pannee
                    DoCmd.Echo False
                    DoCmd.OutputTo acOutputReport, IIf(PcdeLangue = 1, "rptCdeAchatFR", "rptCdeAchat"), acFormatPDF, vFiles, False
                    DoCmd.Echo True
        GetFilePDF = vFiles
        End If
 
End Function

Où est donc mon erreur?
En vous remerciant de votre attention

Cordialement.

**sentenza.yo** · 26/07/2013, 12h09

Re,

Je me permets un petit up. Le "echo" ne fonctionne pas. En moins que je ne sache pas l'utiliser. Si quelqu'un à une idée.

Cordialement.

**loufab** · 26/07/2013, 14h32

Echo était la dernière chance d'intervenir sur cette boite.

**sentenza.yo** · 29/07/2013, 08h51

Bonjour,

Très bien je te remercie de ton attention.

**marsouin_89** · 01/08/2013, 17h23

Bonjour,

Essaies ceci :

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
Public Function GetFilePDF(PnumeroCommande As Long, Pannee As Integer, PcdeLangue As Integer, Pcreation As Boolean) As String
Dim vFiles As String 
vFiles = CreateFolder("My PDF Order")
vFiles = vFiles & "\" & "Order " & Pannee & "-" & PnumeroCommande & ".pdf"
 
If (fPasNull(PnumeroCommande) And fPasNull(Pannee)) Then
   'si ce n'est pas une création on vide la table tblCdeAchat_Entete
   If Not Pcreation Then sLoadBdc PnumeroCommande, Pannee
   Application.Echo False
   DoEvents      
   DoCmd.OutputTo acOutputReport, IIf(PcdeLangue = 1, "rptCdeAchatFR", "rptCdeAchat"), acFormatPDF, vFiles, False
   GetFilePDF = vFiles
   DoEvents
   Application.Echo True 
End If
 
End Function

Cordialement

Christophe

**loufab** · 02/08/2013, 09h14

Inutile de tester.
Même code, même problème...

**marsouin_89** · 02/08/2013, 09h27

Bonjour Loufab,

Sans doute, mais peut être que le DoEvents pourrait le résoudre.

A voir.

Cordialement

Christophe

**loufab** · 04/08/2013, 17h59

Je connais un gars qui en met aussi partout, il dit " ça fait plus pro...".

Tiens ! une petite lecture instructive sur le DoEvents...

http://office.microsoft.com/fr-fr/ac...001228827.aspx

Après ça je pense que tu conviendras que ce n'est surement pas sa présence multiple qui va améliorer quoi que ce soit dans le traitement et encore moins pour le problème.

**marsouin_89** · 05/08/2013, 08h34

Bonjour,

Merci Fabrice pour cette lecture interessante.
Pour ma part, j'utilises assez rarement cette fonction, mais elle m'a parfois bien arrangée le coup.

Cordialement

Christophe

**sentenza.yo** · 09/08/2013, 14h43

Bonjour,

Merci de votre attention Loufab et Marsouin, le "Do.Events" est une solution qui ne m'enchante guère mais si elle peut me sauver la mise sur ce coup, pourquoi pas. Car quand je fais une Multi sélection sur tous les "Projets", voilà le nombre de fenêtre intempestive que le système m'affiche.

Cordialement.