ActivePrinter, il veut pas!

Question

Bonjour,

Je voudrais mettre par défaut une imprimante. J'utilise activePrinter.
Private Sub cmd1_click()
    Dim obExcelApp As Excel.Application
Set obExcelApp = CreateObject("Excel.Application")
obExcelApp.ActivePrinter = "Generic PostScript Printer"
...

Voici le message d'erreur qu'il me lance, quand le programme arrive à la ligne : obExcelApp.ActivePrinter = "Generic PostScript Printer"

Méthode 'ActivePrinter' de l'objet '_Application' à échoué

Pourquoi? Comment puis-je résoudre mon problème?
Merci

Neo.balastik · Answer

Salut ;0)

La syntaxe de ActivePrinter est celle-là :

obExcelApp.ActivePrinter = "Generic PostScript Printer sur Ne01:"

Le 'sur Ne01:' n'est qu'à titre d'exemple ici.  Cela dépend de ton système. 

Tu trouveras sur les news de Microsoft quelques post concernant cela:

grumli · Answer

Re bonjour,

j'ai bien lu les différents post.
J'ai modifié ma ligne en :
obExcelApp.ActivePrinter = "Generic PostScript Printer on FILE:"
Mais il me met toujours le meme message d'erreur.
"Méthode 'ActivePrinter' de l'objet '_Application' à échoué"

Je vois vraiment pas pourquoi, j'ai vérifié mon port dans panneau de config, imprimante...
La j'vois pô!!!

Une idée?

cs_Adi57 · Answer

ExcelApp.ActiveWorkbook.PrintOut(, , , , MonImprimante)