Macro pour imprimer le document sur une imprimante réseau spécif iq
3 réponses
babas84
Bonjour à tous,
Quelqu'un pourrait svp me fournir une macro (que je vais lier à un bouton)
qui me permettrai d'imprimer mon document excel sur une imprimante réseau
spécifique.
\\serveurimpression\laserjet
Merci d'avance pour votre aide et une excellente journée à tous
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Tu peux utiliser ceci pour définir l'imprimante par défaut :
'---------------------------- Dim A as string 'Conserve dans une variable l'imprimante local actuel a = Application.ActivePrinter 'Modifier l'imprimante par défaut pour le temps de l'impression With CreateObject("WScript.Network") .SetDefaultPrinter "serveurimpressionlaserjet" End With
'Code pour lancer ton impression des feuilles voulues 'de ton classeur
'remet l'imprimante locale Application.ActivePrinter = A '----------------------------
"babas84" a écrit dans le message de news:
Bonjour à tous,
Quelqu'un pourrait svp me fournir une macro (que je vais lier à un bouton) qui me permettrai d'imprimer mon document excel sur une imprimante réseau spécifique.
serveurimpressionlaserjet
Merci d'avance pour votre aide et une excellente journée à tous
Babas
Tu peux utiliser ceci pour définir l'imprimante par défaut :
'----------------------------
Dim A as string
'Conserve dans une variable l'imprimante local actuel
a = Application.ActivePrinter
'Modifier l'imprimante par défaut pour le temps de l'impression
With CreateObject("WScript.Network")
.SetDefaultPrinter "\serveurimpressionlaserjet"
End With
'Code pour lancer ton impression des feuilles voulues
'de ton classeur
'remet l'imprimante locale
Application.ActivePrinter = A
'----------------------------
"babas84" <babas84@discussions.microsoft.com> a écrit dans le message de news:
25702944-8494-4D1E-93F0-929476796933@microsoft.com...
Bonjour à tous,
Quelqu'un pourrait svp me fournir une macro (que je vais lier à un bouton)
qui me permettrai d'imprimer mon document excel sur une imprimante réseau
spécifique.
\serveurimpressionlaserjet
Merci d'avance pour votre aide et une excellente journée à tous
Tu peux utiliser ceci pour définir l'imprimante par défaut :
'---------------------------- Dim A as string 'Conserve dans une variable l'imprimante local actuel a = Application.ActivePrinter 'Modifier l'imprimante par défaut pour le temps de l'impression With CreateObject("WScript.Network") .SetDefaultPrinter "serveurimpressionlaserjet" End With
'Code pour lancer ton impression des feuilles voulues 'de ton classeur
'remet l'imprimante locale Application.ActivePrinter = A '----------------------------
"babas84" a écrit dans le message de news:
Bonjour à tous,
Quelqu'un pourrait svp me fournir une macro (que je vais lier à un bouton) qui me permettrai d'imprimer mon document excel sur une imprimante réseau spécifique.
serveurimpressionlaserjet
Merci d'avance pour votre aide et une excellente journée à tous
Babas
babas84
Merci beaucoup. Excellente journée Babas
Tu peux utiliser ceci pour définir l'imprimante par défaut :
'---------------------------- Dim A as string 'Conserve dans une variable l'imprimante local actuel a = Application.ActivePrinter 'Modifier l'imprimante par défaut pour le temps de l'impression With CreateObject("WScript.Network") .SetDefaultPrinter "serveurimpressionlaserjet" End With
'Code pour lancer ton impression des feuilles voulues 'de ton classeur
'remet l'imprimante locale Application.ActivePrinter = A '----------------------------
"babas84" a écrit dans le message de news:
Bonjour à tous,
Quelqu'un pourrait svp me fournir une macro (que je vais lier à un bouton) qui me permettrai d'imprimer mon document excel sur une imprimante réseau spécifique.
serveurimpressionlaserjet
Merci d'avance pour votre aide et une excellente journée à tous
Babas
Merci beaucoup.
Excellente journée
Babas
Tu peux utiliser ceci pour définir l'imprimante par défaut :
'----------------------------
Dim A as string
'Conserve dans une variable l'imprimante local actuel
a = Application.ActivePrinter
'Modifier l'imprimante par défaut pour le temps de l'impression
With CreateObject("WScript.Network")
.SetDefaultPrinter "\serveurimpressionlaserjet"
End With
'Code pour lancer ton impression des feuilles voulues
'de ton classeur
'remet l'imprimante locale
Application.ActivePrinter = A
'----------------------------
"babas84" <babas84@discussions.microsoft.com> a écrit dans le message de news:
25702944-8494-4D1E-93F0-929476796933@microsoft.com...
Bonjour à tous,
Quelqu'un pourrait svp me fournir une macro (que je vais lier à un bouton)
qui me permettrai d'imprimer mon document excel sur une imprimante réseau
spécifique.
\serveurimpressionlaserjet
Merci d'avance pour votre aide et une excellente journée à tous
Tu peux utiliser ceci pour définir l'imprimante par défaut :
'---------------------------- Dim A as string 'Conserve dans une variable l'imprimante local actuel a = Application.ActivePrinter 'Modifier l'imprimante par défaut pour le temps de l'impression With CreateObject("WScript.Network") .SetDefaultPrinter "serveurimpressionlaserjet" End With
'Code pour lancer ton impression des feuilles voulues 'de ton classeur
'remet l'imprimante locale Application.ActivePrinter = A '----------------------------
"babas84" a écrit dans le message de news:
Bonjour à tous,
Quelqu'un pourrait svp me fournir une macro (que je vais lier à un bouton) qui me permettrai d'imprimer mon document excel sur une imprimante réseau spécifique.
serveurimpressionlaserjet
Merci d'avance pour votre aide et une excellente journée à tous
Babas
jps
je pense que l'enregistreur de macros t'aurait aussi donné la solution, babas tu n'avais plus ensuite qu'à mettre une ligne pour revenir à l'imprimante par défaut, du style :
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
jps
"babas84" a écrit dans le message de news:
Merci beaucoup. Excellente journée Babas
Tu peux utiliser ceci pour définir l'imprimante par défaut :
'---------------------------- Dim A as string 'Conserve dans une variable l'imprimante local actuel a = Application.ActivePrinter 'Modifier l'imprimante par défaut pour le temps de l'impression With CreateObject("WScript.Network") .SetDefaultPrinter "serveurimpressionlaserjet" End With
'Code pour lancer ton impression des feuilles voulues 'de ton classeur
'remet l'imprimante locale Application.ActivePrinter = A '----------------------------
"babas84" a écrit dans le message de news:
Bonjour à tous,
Quelqu'un pourrait svp me fournir une macro (que je vais lier à un bouton) qui me permettrai d'imprimer mon document excel sur une imprimante réseau spécifique.
serveurimpressionlaserjet
Merci d'avance pour votre aide et une excellente journée à tous
Babas
je pense que l'enregistreur de macros t'aurait aussi donné la solution,
babas
tu n'avais plus ensuite qu'à mettre une ligne pour revenir à l'imprimante
par défaut, du style :
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
jps
"babas84" <babas84@discussions.microsoft.com> a écrit dans le message de
news: 6B17F122-CC25-4CAE-A144-7BD53C55A4BF@microsoft.com...
Merci beaucoup.
Excellente journée
Babas
Tu peux utiliser ceci pour définir l'imprimante par défaut :
'----------------------------
Dim A as string
'Conserve dans une variable l'imprimante local actuel
a = Application.ActivePrinter
'Modifier l'imprimante par défaut pour le temps de l'impression
With CreateObject("WScript.Network")
.SetDefaultPrinter "\serveurimpressionlaserjet"
End With
'Code pour lancer ton impression des feuilles voulues
'de ton classeur
'remet l'imprimante locale
Application.ActivePrinter = A
'----------------------------
"babas84" <babas84@discussions.microsoft.com> a écrit dans le message de
news:
25702944-8494-4D1E-93F0-929476796933@microsoft.com...
Bonjour à tous,
Quelqu'un pourrait svp me fournir une macro (que je vais lier à un
bouton)
qui me permettrai d'imprimer mon document excel sur une imprimante réseau
spécifique.
\serveurimpressionlaserjet
Merci d'avance pour votre aide et une excellente journée à tous
je pense que l'enregistreur de macros t'aurait aussi donné la solution, babas tu n'avais plus ensuite qu'à mettre une ligne pour revenir à l'imprimante par défaut, du style :
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
jps
"babas84" a écrit dans le message de news:
Merci beaucoup. Excellente journée Babas
Tu peux utiliser ceci pour définir l'imprimante par défaut :
'---------------------------- Dim A as string 'Conserve dans une variable l'imprimante local actuel a = Application.ActivePrinter 'Modifier l'imprimante par défaut pour le temps de l'impression With CreateObject("WScript.Network") .SetDefaultPrinter "serveurimpressionlaserjet" End With
'Code pour lancer ton impression des feuilles voulues 'de ton classeur
'remet l'imprimante locale Application.ActivePrinter = A '----------------------------
"babas84" a écrit dans le message de news:
Bonjour à tous,
Quelqu'un pourrait svp me fournir une macro (que je vais lier à un bouton) qui me permettrai d'imprimer mon document excel sur une imprimante réseau spécifique.
serveurimpressionlaserjet
Merci d'avance pour votre aide et une excellente journée à tous
