Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et aide.

Je travaille en Access XP (2002).

J'ai une imprimante qui peut offrir le mode 'Recto Simple' (impression sur un seul côté de la feuille) ou 'Recto/Verso' (impression sur les deux côtés de la feuille).

J'aimerai tester si l'impression se fera en mode Recto ou Recto/Verso.

J'ai regardé l'objet Printer mais le problème c'est que dans la configuration 'Imprimante par défaut' associé à mon rapport, printer.duplex renvoie 'Recto simple' alors que mon imprimante imprime par défaut en mode Recto/Verso.

Si je spécifie l'imprimante alors là je sais si je vais imprimer en Recto ou Recto/Verso mais le problème c'est que je déploie dans des lieux où les imprimantes varies donc j'aimerai vraiment garder la configuration par défaut.

J'ai aussi regardé l'API Windows et les objets prtDevMode, prtDevNames et DevicesCapabilities mais apparement je peux seulement savoir si l'imprimante offre le mode Recto/Verso (Duplex) mais pas si elle va actuellement imprimer en mode Recto ou Recto/Verso.

Quelqu'un a-t'il déjà fait cela, savoir si l'imprimante par défaut va imprimer en mode recto ou rceto/verso ?

A+

[naphta]

Bonjour,
Oui avec les API on peut tout faire mais c'est un dev. long live, des tartines de code et en plus pas certain du portage sur d'autre bécannes.
Le mieux pour moi bien entendu
c'est d'installer sur chaque poste 2 pilotes, si c'est dans un réseau Windows avec serveur sert toi des queues.
Si tu as peur de perdre les imprimantes fais un script de connexion pour tous les utilisateurs qui force l'installation des 2 queues.
Ensuite si tes états nécessites l'une ou l'autre imprimante un script vba, de toute façon faut jamais imprimer en direct avec docmd.openreport blablabla.

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 VaziImprimeLe(lekel As String, leouerre)
 
' Force l'impression sur une imprimante connue 1 ex. 
' lekel nom de l'état
' leouerre Clause Where
 
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 = "TonImprimante" 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 TonImprimante!!", 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

Bon cette fois j'espère que j'ai mis les bonnes balises pour le code !
Voila ici du code pour forcer l'impression d'un état sur une imprimante connue
a+

[marot_r]

Merci pour ton aide mais mon but est justement de ne pas avoir à forcer l'installation d'un type d'imprimante mais d'utiliser l'imprimante de l'utilisateur, quel que soit son modèle (ce sont toutes des imprimantes classiques de bureau).

Si j'imprime en Recto/Verso j'ajoute une page blanche pour le dos de la 1ère page donc j'ai besoin de savoir si l'imprimante va imprimer en Recto/Verso ou pas.

A+

[naphta]

Bonsoir Marot,
Voila 2 liens pour t'aider l'père

http://pubs.logicalexpressions.com/P...cle.asp?ID=116
ici on peut savoir si l'imprimante est duplex en anglais pour le recto/verso

ou là j'ai testé ça marche avec access très bien attention code pour vb6
http://support.microsoft.com/?scid=k...94789&x=4&y=12

A+

[naphta]

Bonsoir,

Je crains la boulette dans le petit bout de code laissé, en effet dans le test
If NumIMP = NombreImp Then
faut tester en détail car si c'est la dernière imprimante installée que l'on veut
bon je reviens vers vous dès la fin du test

Désolé