Impression sur une imprimante spécifique

Version imprimable

15/04/2014, 16h49
FBOISSINOT

Impression sur une imprimante spécifique

Bonjour,

Je cherche, depuis une macro VBA, à réaliser une impression sur une imprimante prédéfinie.

Cette imprimante n'est pas l'imprimante par défaut et je ne souhaite pas que l'imprimante par défaut soit modifiée.

J'ai essayé de le faire en macro pré-enregistrée mais cela ne fonctionne pas car sur Excel 2010 l'imprimante choisi n'apparait pas dans les lignes générées sous VBA.

Merci d'avance pour votre aide.

FBOISSINOT
16/04/2014, 17h01
emi81

Citation:

Envoyé par FBOISSINOT

Bonjour,

Je cherche, depuis une macro VBA, à réaliser une impression sur une imprimante prédéfinie.

Cette imprimante n'est pas l'imprimante par défaut et je ne souhaite pas que l'imprimante par défaut soit modifiée.

J'ai essayé de le faire en macro pré-enregistrée mais cela ne fonctionne pas car sur Excel 2010 l'imprimante choisi n'apparait pas dans les lignes générées sous VBA.

Merci d'avance pour votre aide.

FBOISSINOT

Bonjour,
je suis à la recherche de la même chose !
merci pour votre aide
16/04/2014, 23h44
ESVBA

Bonsoir à vous

J'utiliserais

Code:

Application.ActivePrinter="nomimprimantecommedanspanneauconfiguration"

ESVBA
29/04/2014, 16h43
FBOISSINOT

1 pièce(s) jointe(s)

Bonjour,

J'ai essayé le code --> Application.ActivePrinter="nomimprimantecommedanspanneauconfiguration" proposé par ESVBA mais cela ne fonctionne pas.

Cela fait un moment que je cherche et j'ai la solution la plus proche que j'ai pu trouver est celle en pièce jointe.

Si c'est une imprimante en locale je n'ai pas de soucis
Seulement j'ai l'impression que cela ne fonctionne pas quand je cherche à sélectionner une imprimante qui est sur le réseau. Cela me met le message :
Erreur d'exécution '-2147217385 (80041017)':
Erreur Automation

Merci pour vos réponses, je ne sais plus quoi faire et ne pensait pas rencontrer de tels soucis pour un problème aussi "classique"

:arf:

F BOISSINOT

HEU

bONJOUR

connais tu l'enregistreur de macro??
voila ce que ca donne chez moi pour les 3 option d'imprimante que j'ai chez moi sur le portable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub Macro2()
'
' Macro2 Macro
'
'
    Application.ActivePrinter = "Microsoft XPS Document Writer sur Ne00:"
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,2,""Microsoft XPS Document Writer sur Ne00:"",,TRUE,,FALSE)"
End Sub
Sub Macro3()
'
' Macro3 Macro
'
'
    Application.ActivePrinter = "Bullzip PDF Printer sur Ne02:"
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,2,""Bullzip PDF Printer sur Ne02:"",,TRUE,,FALSE)"
End Sub
Sub Macro4()
'
' Macro4 Macro
'
'
    Application.ActivePrinter = "Fax sur Ne01:"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Fax sur Ne01:"",,,,FALSE)"
End Sub

Au plaisir

30/04/2014, 17h45
FBOISSINOT

Enregistreur de macro

Bonjour et merci pour la réponse,

Concernant l’enregistreur, je l’utilise régulièrement mais quand je cherche à l’utiliser sur ce sujet la depuis Excel 2010, le code obtenu ne laisse apparaitre aucune info quant à l’imprimante choisie…
:?

De plus, lorsque je cherche à utiliser le code que vous m'avez fait parvenir, j’obtiens le message suivant :

Erreur d’exécution ‘1004’ :
La méthode ‘activeprinter’ de l’objet ‘_Application’ a échoué

J’avais déjà obtenu le même message lorsque j’avais récupéré ce code depuis l’enregistreur sur Excel 2003 et que j’avais cherché à le copier sur Excel 2010…

Les codes générés sur excel 2003 ne semblent donc pas forcément compatible à Excel 2010...:(

Je suis donc toujours coincé...

F BOISSINOT
06/03/2017, 15h34
francois91700

executeexcel4macro print et excel 2010

bonjour, j'ai le même problème,
avez vous trouvé une solution ?
bien cordialement :lol: