XL 2016 concours / Macro / code pour pour imprimer sur l'imprimante active sur le PC utilise

[berru76]

Bonjour
Je voudrais savoir si le code du fichier joint peut fonctionner sur n'importe qu'elle imprimante ou sinon comment le modifier pour l'utiliser sur un autre PC équipé d'une imprimante différente
Merci

 

[patricktoulon]

bonsoir
il y a beaucoup de chose inutile (c'est une macro enregistrée avec l'enregistreur) mais a priori oui

 

[kiki29]

Salut, consulter les posts ci-dessous parmi une myriade ( pas testés )
Récupérer la liste des imprimantes disponibles
Gérer les impressions par VBA

Spoiler

Option Explicit
 
Sub Tst()
Dim PrinterDefault As String
    PrinterDefault = Application.ActivePrinter

    '.....

    Application.ActivePrinter = PrinterDefault
End Sub

 

[patricktoulon]

Attention je rajouterais aussi que vu le titre

pour-imprimer-sur-limprimante-active-sur-le-pc-utilise

qu'il ne faut pas confondre l'imprimante par defaut du pc et c'elle de excel qui n'est pas forcement la même

 

[berru76]

Merci je vais essayer de tester le programme sur autre PC et imprimante en A4 mais plus difficile en A3 D’où la recherche d'infos

 

[berru76]

Je joint une feuille du programme si quelqu'un peut tester les macros impression sur une autre imprimante afin de savoir si cela fonctionne par défaut ou comment modifier
Merci