Choisir le bac d'impression VBA

Fermé
Signaler
Messages postés
1
Date d'inscription
lundi 30 mai 2016
Statut
Membre
Dernière intervention
30 mai 2016
-
Bonjour,

Je suis entrain de développer une macro pour une impression de document au travail et j'essaie de choisir le bac d'impression pour imprimer du bac 1 2 pages et du bac 3 les autres pages.

Le problème est que je n'arrive pas à trouver quel est le nom du bac 1. Par défaut il prend le bac 3 et la ligne je la trouve. J'ai pu changer d'imprimante pour mettre une imprimante "PDFConvertor" donc c'est le numéro du bac qui pose problème mais je ne sais pas où trouver le bon numéro de bac.

Quelqu'un pourrait m'aider?

peut-être aussi que mon code comporte des erreurs. voici ce que j'ai écrit.

Sub testImprim()

Dim wsContrat As Worksheet, wsBvne As Worksheet
Dim wsSource As Worksheet
Dim oMemPrinter
Dim oBac1Printer


Application.ScreenUpdating = False


Set wsBvne = ActiveWorkbook.Sheets("Bienvenue")

'Application.Dialogs(XlBuiltInDialog.xlDialogPrinterSetup).Show

'Chemin par défaut de l'imprimante et bac par défaut
'"\\FSV0008S.cinba.lan\PRT10008 sur Ne03:"

'oBac1Printer = "\\FSV0008S.cinba.lan\PRT10008 sur Ne01:"

With Application
oMemPrinter = .ActivePrinter
MsgBox oMemPrinter
.ActivePrinter = "\\FSV0008S.cinba.lan\PRT10008 sur Ne01:"
wsBvne.PrintOut
.ActivePrinter = oMemPrinter
End With

End Sub


Cordialement et merci d 'avance.