Probleme avec imprimante

Question

Je travail avec un fichier excel, et je dois imprimer sur deux imprimantes ( une avec feuille jaune et l'autre feuille blanche) je dois a chaque fois aller dans mes proprietes des imprimantes et changer d'imprimante. Y a t-il une solutions a mon probleme pour m'aider a me simplifier la vie ... Merci a tous Panda...

Amadéus · Answer

Une avec feuille jaune et l'autre feuille blanche Quelle importance ont les couleurs des feuilles dans ta question ? Cordialement...

Sylvain TBM · Answer

C'est juste pour expliquer pourquoi il veut choisir l'imprimante...

C'aurait pu être couleur/n&b, A4/A3, papier/pdf,...

On peut créer des boutons de commande personnalisés à mettre dans les barres d'outils non ? Un bouton par imprimante, avec un joli icône perso pour faire le distingo ?

Edit : remarque que si c'est que pour un seul fichier, tu peux créer 2 boutons de macro sur ta feuille...

Sylvain TBM · Answer

J'avais complètement oublié cette question...

T'es toujours là Panda ?

Dans ton cas il te faudra faire des essais par rapport aux noms de tes imprimantes.

Donc le mieux c'est de faire Outils/Macros/Nouvelle macro

Quand tu as lancé l'enregistrement, tu lances une impression feuille jaune, et tu arêtes l'enregistrement. Tu as ta première macro.

Tu recommences avec une impression feuille blanche, et tu as ta seconde macro.

Il ne te reste plus qu'à créer 2 boutons et leur attribuer les macros.

Chez moi ça donnerait ça :

Impression papier :

Sub papier()
    Application.ActivePrinter = "Dell Photo AIO Printer 922 sur Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Dell Photo AIO Printer 922 sur Ne01:", Collate:=True
End Sub

Impression pdf :

Sub pdf()
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator sur Ne00:", Collate:=True
End Sub