Discussion :

[fisio]

CHERS DEVELOPPEZEUR

Voici ma question : Actuellement je souhaite générer un très grand nombre de documents administratifs à travers lesquels les renseignements de ma base de données seraient ventilés. Jusque là tout va bien : les documents générés sont classés dans un répertoire unique puis dans divers dossiers de ce même répertoire.

Maintenant je souhaiterai un petit code afin de sélectionner pour chaque document généré un choix d'imprimante puis exécuter cette impression rapidement et ce pour tout les documents créé sans avoir à les ouvrir les un après les autres pour choisir l'imprimante et lancer l'impression.

Une dernière question sur une des imprimantes une option doit être préalablement inscrite celle de l'impression des marges.

MERCI

[naphta]

Bonjour,

Il y a un moment de cela j'avais posté sur le forum , un bout de code pas
je l'ai jamais testé juste passé au debogueur
car ce genre de demande est rare et puis c'est pas trop conseillé de faire cela dans un contexte de N utilisateurs.

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
 
Sub VaziImprimeLe(lekel As String, tonimprimante As String, Optional leouerre As String)
 
' Force l'impression sur une imprimante connue 1 ex.
' tonimprimante nom de l'imprimante
' lekel nom de l'état
' leouerre Clause Where de l'état
 
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 "Gasp, vous n'avez pas d'imprimante " + tonimprimante, vbCritical, "Impossible !"
    Exit Sub
End If
 
If leouerre <> "" 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

ici pour le reste, ici des infos

http://support.microsoft.com/kb/284286


Bon WE a+