Gestion des bacs impression Excel

Bonjour,

je désirerai imprimer une sheet excel comme suit, je dispose d'une imprimante 2 bacs:

1 Bac avec du papier format B5 et 1 bac avec du papier A4.

j'ai besoin 1x impression B5 et 2 x impression A4.

j'essaye d'enregistrer une macro sur excel 2007 ,je réussi a sortir mes impressions mes uniquement sur le papier du bac par defaut de l'imprimante( ici donc 3x A4).

je pense que l'enregistreur de macro n'identifie pas les changement dans les propriétés de l'imprimante.

voici le code qui en résulte.

Sub Macro1()

'

' Macro1 Macro

'

'

ActiveWindow.SelectedSheets.PrintOut Copies:=1

ActiveWindow.SelectedSheets.PrintOut Copies:=2

End Sub

je suis débutant et je ne sais comment faire pour lui dire qu'il y a un 2 bacs avec des papiers différents.

merci pour votre aide

philippe72

Bonjour Philippe72

Méthode simple, ajouter une autre imprimante sur ton PC ne mettant les paramètres pas défaut pour le 2ème bac

Ensuite il suffit de dire à Excel de prendre telle ou telle imprimante par défaut et d'imprimer dessus

Exemple de ce que l'on peut avoir

Sub Impression()
  Dim MemPrinter As String
  ' Mémoriser l'imprimante définit par défaut
  MemPrinter = Application.ActivePrinter
  ' Définir par défaut l'imprimante sur laquelle on souhaite imprimer
  Application.ActivePrinter = "Canon MP990 series BAC1 sur Ne01:"
  ' Lancer l'impression
  Sheets("B5").PrintOut
  ' Définir par défaut l'imprimante sur laquelle on souhaite imprimer
  Application.ActivePrinter = "Canon MP990 series BAC2 sur Ne02:"
  ' Lancer l'impression
  Sheets("A4").PrintOut
  ' Remettre l'imprimante par défaut d'origine
  Application.ActivePrinter = MemPrinter
End Sub

A+