Choix d'imprimante avec VB

Bonjour,

Petit problème avec mes impressions sur un fichier Excel.

Je vous explique: Je veux imprimer un document Excel à partir d'une autre imprimante que celle de base (j'ai une imprimante papier classique, mais je veux que mon document soit imprimé à partir d'une imprimante à étiquettes).

Pour se faire j'utilise le code suivant:

Sub Déterminer_Imprimante_Par_Defaut()

Dim MonImprimante As String

'Nom de ton imprimante tel que défini dans

'Le panneau de configuration de Windows

MonImprimante = "Zebra"

Application.ActivePrinter = MonImprimante

End Sub

Celà marchait bien jusqu'à un certain temps car maintenant l'impression ne se fait plus sur l'imprimante étiquette mais sur la classique, de plus lorsque je fait un débogage pas à pas à la fin du programme j'ai une erreur d'éxécution '1004', "erreur définie par l'application ou par l'objet".

Auriez-vous des suggestions pour m'aider ?

Merci ^^

Bonjour,

regarde si ce classeur peut t'aider: liste des imprimantes installées et imprimante actuellement par défaut et choix d'une imprimante

1'569choix-imprimante.zip (14.72 Ko)

Salut,

Merci pour l'aide , je vais jeter un oeil à ca !

Cordialement,

Olivier.

-- 30 Mar 2010, 10:42 --

Re-Salut,

C'est bon, c'est parfait, ca marche

Encore merci pour ton aide !

Cordialement,

Salut !

Slt Olivier,

Dsl mais j'ai exactement le même problème que toi et je dois faire cette modif en urgence.

Peux tu me donner le code complet corrigé que tu as utilisé et qui fonctionne stp?

merci d''avance,

Cdt

Rechercher des sujets similaires à "choix imprimante"