choix d'imprimante avant l'impression

**athenasst** · 25/04/2006, 16h16

bonjour,
voila, j'ai 2 imprimante, et qaund je cliq sur le bouton imprimer, j'aimerai qu'un panneau s'ouvre pour me demander sur quel imprimante je veut imprimer, vous saver comme quand on imprime avec internet explorer

merci

**Faw** · 25/04/2006, 19h01

Salut, une solution "bricolée"...

Code :

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

1
2
3
4
5
6
Private Sub Bascule13_Click() 
On Error Resume Next
DoCmd.OpenReport "MyReport", acViewPreview 'Obligatoire pour rendre "MyReport" Courant à l'impression.
DoCmd.RunCommand acCmdPrint 'Boîte de dialogue Options d'impression
DoCmd.OpenReport "MyReport", acNormal ' Tu imprimes
End Sub

Autrement il faut passer par l'objet printer. Des post existent dans ce sens,
+ la Faq. Fais une recherche sur Imprimante/Printer.

**athenasst** · 26/04/2006, 11h36

je te remercie pour ta reponse, pourrai tu m'en dire plus, ce code, je doit le mettre en code dans le bouton ?
sinon tu me parlait des fac, mais il fait ecree des module, et je ne sias pas comment faire, et surtout je ne sais pas comment les executer dans mon formulaire.
merci

**athenasst** · 26/04/2006, 11h54

je me corrige, j'ai reussi a faire fonctionner ton code
merci beaucoup pour ton aide

**Faw** · 26/04/2006, 14h00

Avec une meilleure gestion d'erreurs:

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
Private Sub Bascule13_Click() 
On Error GoTo Err
DoCmd.OpenReport "MyReport", acViewPreview 'Obligatoire pour rendre "MyReport" Courant à l'impression.
DoCmd.RunCommand acCmdPrint 'Boîte de dialogue Options d'impression
DoCmd.OpenReport "MyReport", acNormal ' Tu imprimes
 
Exit_Err:
    Exit Sub
 
Err:
If Err.Number = 2501 Then 'Evite le message d'annulation de la commande CmdPrint
Else
    MsgBox Err.Description & " " & Err.Number
End If
    Resume Exit_Err
 
End Sub