Discussion :

[AndréPe]

Bonsoir,
Le changement manuel d'imprimante par défaut en passant par Démarrer/Imprimantes/ puis choisir l'imprimante et clic droit 'Définir comme impr par défaut' est quasi immédiat.
Mais par code avec les sub qu'on trouve dans les FAQ

Code :

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

SwitchDefaultPrinter(strPrinter)

il faut une quinzaine de secondes, ce qui est très long.
N'y aurait-il pas une méthode plus rapide qui m'aurait échappé ?
et pourquoi cette différence alors que c'est la même opération et que ça aboutit au même résultat ?
Amitiés

[naphta]

Bonjour,

Cela pourra te paraitre bizarre, mais pourquoi as tu besoin de switcher l'appli sur l'imprimante par défaut ?

Tous les états sont imprimables par défaut sur l'imprimante par défaut alors ?

on peut forcer l'édition d'un état spécifique sur une imprimante déterminée et revenir tranquillement sur l'imprimante par défaut.

A+

[AndréPe]

@naphta
Non, çe n'est pas bizarre : j'ai besoin de ce "switchage" en cours de route, car je laisse le choix aux utilisateurs de la forme de sauvegarde des états, dont PDF qui exige une imprimante virtuelle PDF, dans mon cas PDFCreator.
Si tous voulaient ce format, je ferais le switch à l'ouverture, revenant à l'imprimante initiale avant fermeture du prg.
Mais ils ne le veulent pas tous !

on peut forcer l'édition d'un état spécifique sur une imprimante déterminée et revenir tranquillement sur l'imprimante par défaut.

D'accord, mais ça exige une manip particulière que je ne voudrais pas imposer à l'utilisateur.

Ces considérations laissent cependant ma question sans réponse : pourquoi cette différence de vitesse d'exécution ?

[naphta]

Bonjour,


J'avais ce genre de pépins sur un poste lenteur pour la sélection d'une autre imprimante cela venait d'une imprimante réseau qui fonctionnait comme ses pieds.
On a viré l'imprimante et son pilote et cela n'a pas suffit il a fallu détruire le contexte utilisateur dans le domaine et le faire entrer à nouveau.
C'est juste une piste.

Sinon tu veux imprimer un état en pdf et revenir sur l'imprimante par défaut ?
j'ai du code pour cela avec le PDFCreator.

a+ et bonne chance

[cafeine]

Hello,

La différence de temps est due à la méthode.
Dans la sub SwitchDefaultPrinter, VBA réécrit le fichier win.ini et force via les API à recharger tous les paramètres de win.ini
Alors que l'autre méthode ne change que l'imprimante.

[AndréPe]

@naphta
Indique moi où je peux trouver ton code qui va bien. Merci

@cafeine
Je pense que c'est en effet l'origine de la lenteur du SwitchDefaultPrinter.

Le changement manuel d'imprimante passe bien par du VBA quelque part et on devrait donc pouvoir simuler en VBA ce changement, c'est-à-dire court-circuiter les API sans recharger tous les paramètres.
Ca devrait suffire ?

Mais comment faire ?
A+

[naphta]

Bonjour,

Voici le code pour faire un pdf attention avec les paramètres par défaut de pdfcréator et reseter l'imprimante par défaut.
Ici pour faire état en pièce attachée au mail.

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
 
Sub ReportPDFCreator(lekel As String, leouerre)
' Impression PDF et PJ dans le Mail
' lekel nom de l'état
' leouerre Clause Where pour état avec paramètre
 
Dim NumIMP As Integer
Dim NombreImp As Integer
Dim ImpCherche
Dim cpt As Integer
 
NumIMP = 0
NombreImp = Application.Printers.Count
For Each ImpCherche In Application.Printers
    If ImpCherche.DeviceName = "PDFCreator" Then
        Set Application.Printer = Application.Printers(NumIMP)
        Exit For
        Else
        NumIMP = NumIMP + 1
    End If
Next ImpCherche
 
If NumIMP = NombreImp Then
    MsgBox "Vous n'avez pas d'imprimante PDFCreator !!", vbCritical, "Impossible"
    Exit Sub
End If
 
If leouerre <> "Aucune" Then
    DoCmd.OpenReport lekel, acViewPreview, , leouerre ' ICI Etat avec Clause Where
    Else
    DoCmd.OpenReport lekel, acViewPreview
End If
 
DoCmd.PrintOut acPrintAll, , , 1
DoCmd.Close acReport, lekel
Set Application.Printer = Nothing
 
End Sub

Il y a une super contribution sur le forum à voir pour modifier les paramètres de pdfcreator by le code sans passer par la registry comme je le faisais (honte à moi).
ici
http://www.developpez.net/forums/sho...d.php?t=508953

a+

[naphta]

Bonjour,

Je viens de relire le code petite erreur
numimp=0
en trop
désolé
a+

[cafeine]

je crois que Application.Printer n'est disponible qu'à partir de XP ou 2003 ... hors quand j'ai écrit le tutoriel, je n'avais que Access 2000 sous la main.

[AndréPe]

Effectivement Application.Printers n'existe pas dans Access2000.
Merci à vous malgrès cela.

Je vais examiner le site signalé par naphta.
Amitiés

[AndréPe]

Bonjour,
Je n'avais pas mis "résolu" à ce post, car je n'ai toujours pas trouvé comment accélérer l'exportation en pdf.
Or, je viens seulement de me rendre compte qu'OpenOffice Writer (comme le classeur), permet une exportation en pdf très rapide, sans qu'il y ait besoin d'installer une imprimante virtuelle PDF.
C'est aussi rapide que d'exporter en doc.
Ce forum n'est pas le bon endroit pour discuter de Ooo, mais j'ai tenu à le signaler, car il est possible que certains aient d'autres idées à ce sujet.
Maintenant je vais chercher comment utiliser cela avec Access.
Précision : je n'ai gardé d'Office MS que Access, car Base de Ooo n'est pas aussi puissant.

Amitiés