slt le forum ..

un pti pb
je souhaite imprimer un report sur 2 imprimantes en meme tps..mais rien a faire .les 2 s imprime sur l imprimante par defaut du systeme.
l imprimante \\W2K3S1\Copieur Toshiba est bien trouve puisqu en debeuggage je passe par la ligne set . si il la trouvai pas il fera un exit for ..

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
DRmoutarde.Orientation = rptOrientLandscape
DRmoutarde.PrintReport ' imprimante par defaut 
 
'=================
' change d imprimante copieur
'\\W2K3S1\Copieur Toshiba"
 
  Dim X As Printer
For Each X In Printers
   If X.DeviceName = "\\W2K3S1\Copieur Toshiba" Then
 
      Set Printer = X
      DRmoutarde.PrintReport 
 
      ' Cesse la recherche d'imprimante.
      Exit For
   End If
Next