Je cherche à créer une macro me permettant d'imprimer sur une machine bien
précise (chemin réseau du type "\\poste1\printer").
Peux-t-on définir cela en VBA ?
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
Bonjour,
Essaie ceci :
'------------------------------------------- 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 = "HP DeskJet 930C/932C/935C"
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = '" & MonImprimante & "'") For Each objPrinter In colInstalledPrinters objPrinter.SetDefaultPrinter Next End Sub '-------------------------------------------
"FRED" a écrit dans le message de groupe de discussion :
Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise (chemin réseau du type "poste1printer"). Peux-t-on définir cela en VBA ?
Merci de votre aide.
FRED
Bonjour,
Essaie ceci :
'-------------------------------------------
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 = "HP DeskJet 930C/932C/935C"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = '" & MonImprimante & "'")
For Each objPrinter In colInstalledPrinters
objPrinter.SetDefaultPrinter
Next
End Sub
'-------------------------------------------
"FRED" <nospam@lavirvee.fr> a écrit dans le message de groupe de discussion :
Oa8WEH8qKHA.1796@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien
précise (chemin réseau du type "\poste1printer").
Peux-t-on définir cela en VBA ?
'------------------------------------------- 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 = "HP DeskJet 930C/932C/935C"
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = '" & MonImprimante & "'") For Each objPrinter In colInstalledPrinters objPrinter.SetDefaultPrinter Next End Sub '-------------------------------------------
"FRED" a écrit dans le message de groupe de discussion :
Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise (chemin réseau du type "poste1printer"). Peux-t-on définir cela en VBA ?
Merci de votre aide.
FRED
michdenis
Peut-être préfères-tu cela !
'--------------------------------- Sub Déterminer_Imprimante_Par_Defaut() Application.Dialogs(wdDialogFilePrintSetup).Show End Sub '---------------------------------
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Essaie ceci :
'------------------------------------------- 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 = "HP DeskJet 930C/932C/935C"
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = '" & MonImprimante & "'") For Each objPrinter In colInstalledPrinters objPrinter.SetDefaultPrinter Next End Sub '-------------------------------------------
"FRED" a écrit dans le message de groupe de discussion :
Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise (chemin réseau du type "poste1printer"). Peux-t-on définir cela en VBA ?
Merci de votre aide.
FRED
Peut-être préfères-tu cela !
'---------------------------------
Sub Déterminer_Imprimante_Par_Defaut()
Application.Dialogs(wdDialogFilePrintSetup).Show
End Sub
'---------------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
47D6A321-9F54-4F9D-865E-550D7B39CBD9@microsoft.com...
Bonjour,
Essaie ceci :
'-------------------------------------------
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 = "HP DeskJet 930C/932C/935C"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = '" & MonImprimante & "'")
For Each objPrinter In colInstalledPrinters
objPrinter.SetDefaultPrinter
Next
End Sub
'-------------------------------------------
"FRED" <nospam@lavirvee.fr> a écrit dans le message de groupe de discussion :
Oa8WEH8qKHA.1796@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien
précise (chemin réseau du type "\poste1printer").
Peux-t-on définir cela en VBA ?
'--------------------------------- Sub Déterminer_Imprimante_Par_Defaut() Application.Dialogs(wdDialogFilePrintSetup).Show End Sub '---------------------------------
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Essaie ceci :
'------------------------------------------- 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 = "HP DeskJet 930C/932C/935C"
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = '" & MonImprimante & "'") For Each objPrinter In colInstalledPrinters objPrinter.SetDefaultPrinter Next End Sub '-------------------------------------------
"FRED" a écrit dans le message de groupe de discussion :
Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise (chemin réseau du type "poste1printer"). Peux-t-on définir cela en VBA ?
Merci de votre aide.
FRED
michdenis
Et une dernière :
'------------------------------ 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 = "HP DeskJet 930C/932C/935C" Application.ActivePrinter = MonImprimante End Sub '------------------------------
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Essaie ceci :
'------------------------------------------- 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 = "HP DeskJet 930C/932C/935C"
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = '" & MonImprimante & "'") For Each objPrinter In colInstalledPrinters objPrinter.SetDefaultPrinter Next End Sub '-------------------------------------------
"FRED" a écrit dans le message de groupe de discussion :
Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise (chemin réseau du type "poste1printer"). Peux-t-on définir cela en VBA ?
Merci de votre aide.
FRED
Et une dernière :
'------------------------------
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 = "HP DeskJet 930C/932C/935C"
Application.ActivePrinter = MonImprimante
End Sub
'------------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
47D6A321-9F54-4F9D-865E-550D7B39CBD9@microsoft.com...
Bonjour,
Essaie ceci :
'-------------------------------------------
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 = "HP DeskJet 930C/932C/935C"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = '" & MonImprimante & "'")
For Each objPrinter In colInstalledPrinters
objPrinter.SetDefaultPrinter
Next
End Sub
'-------------------------------------------
"FRED" <nospam@lavirvee.fr> a écrit dans le message de groupe de discussion :
Oa8WEH8qKHA.1796@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien
précise (chemin réseau du type "\poste1printer").
Peux-t-on définir cela en VBA ?
'------------------------------ 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 = "HP DeskJet 930C/932C/935C" Application.ActivePrinter = MonImprimante End Sub '------------------------------
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Essaie ceci :
'------------------------------------------- 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 = "HP DeskJet 930C/932C/935C"
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = '" & MonImprimante & "'") For Each objPrinter In colInstalledPrinters objPrinter.SetDefaultPrinter Next End Sub '-------------------------------------------
"FRED" a écrit dans le message de groupe de discussion :
Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise (chemin réseau du type "poste1printer"). Peux-t-on définir cela en VBA ?
Merci de votre aide.
FRED
Geo
Bonjour
[ Cette réponse est faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise (chemin réseau du type "poste1printer"). Peux-t-on définir cela en VBA ?
Oui, il faut affecter le nom de l'imprimante à ActivePrinter. Pour avoir le nom exact, mettez la par défaut, et faites dans la fenêtre d'exécution un ? Application.ActivePrinter
Ensuite cette macro imprime votre document et remet la situation en l'état : Sub Imprime() Dim ImprCour As String Dim Impr2 As String ImprCour = Application.ActivePrinter Impr2 = "Ici le nom de l'imprimante" Application.ActivePrinter = Impr2 ActiveDocument.PrintOut Application.ActivePrinter = ImprCour End Sub
-- A+
Bonjour
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise
(chemin réseau du type "\poste1printer").
Peux-t-on définir cela en VBA ?
Oui, il faut affecter le nom de l'imprimante à ActivePrinter.
Pour avoir le nom exact, mettez la par défaut, et faites dans la
fenêtre d'exécution un
? Application.ActivePrinter
Ensuite cette macro imprime votre document et remet la situation en
l'état :
Sub Imprime()
Dim ImprCour As String
Dim Impr2 As String
ImprCour = Application.ActivePrinter
Impr2 = "Ici le nom de l'imprimante"
Application.ActivePrinter = Impr2
ActiveDocument.PrintOut
Application.ActivePrinter = ImprCour
End Sub
[ Cette réponse est faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise (chemin réseau du type "poste1printer"). Peux-t-on définir cela en VBA ?
Oui, il faut affecter le nom de l'imprimante à ActivePrinter. Pour avoir le nom exact, mettez la par défaut, et faites dans la fenêtre d'exécution un ? Application.ActivePrinter
Ensuite cette macro imprime votre document et remet la situation en l'état : Sub Imprime() Dim ImprCour As String Dim Impr2 As String ImprCour = Application.ActivePrinter Impr2 = "Ici le nom de l'imprimante" Application.ActivePrinter = Impr2 ActiveDocument.PrintOut Application.ActivePrinter = ImprCour End Sub
-- A+
FRED
Bonjour à tous,
Génial, c'est exactement ce que je cherchais : simple et efficace !
Merci à tous.
Fred.
"Geo" a écrit dans le message de groupe de discussion :
Bonjour
[ Cette réponse est faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise (chemin réseau du type "poste1printer"). Peux-t-on définir cela en VBA ?
Oui, il faut affecter le nom de l'imprimante à ActivePrinter. Pour avoir le nom exact, mettez la par défaut, et faites dans la fenêtre d'exécution un ? Application.ActivePrinter
Ensuite cette macro imprime votre document et remet la situation en l'état : Sub Imprime() Dim ImprCour As String Dim Impr2 As String ImprCour = Application.ActivePrinter Impr2 = "Ici le nom de l'imprimante" Application.ActivePrinter = Impr2 ActiveDocument.PrintOut Application.ActivePrinter = ImprCour End Sub
-- A+
Bonjour à tous,
Génial, c'est exactement ce que je cherchais : simple et efficace !
Merci à tous.
Fred.
"Geo" <Geo@sans.pub> a écrit dans le message de groupe de discussion :
mn.62bf7da28d0cbb60.41568@sans.pub...
Bonjour
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine
bien précise (chemin réseau du type "\poste1printer").
Peux-t-on définir cela en VBA ?
Oui, il faut affecter le nom de l'imprimante à ActivePrinter.
Pour avoir le nom exact, mettez la par défaut, et faites dans la fenêtre
d'exécution un
? Application.ActivePrinter
Ensuite cette macro imprime votre document et remet la situation en l'état
:
Sub Imprime()
Dim ImprCour As String
Dim Impr2 As String
ImprCour = Application.ActivePrinter
Impr2 = "Ici le nom de l'imprimante"
Application.ActivePrinter = Impr2
ActiveDocument.PrintOut
Application.ActivePrinter = ImprCour
End Sub
Génial, c'est exactement ce que je cherchais : simple et efficace !
Merci à tous.
Fred.
"Geo" a écrit dans le message de groupe de discussion :
Bonjour
[ Cette réponse est faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour,
Je cherche à créer une macro me permettant d'imprimer sur une machine bien précise (chemin réseau du type "poste1printer"). Peux-t-on définir cela en VBA ?
Oui, il faut affecter le nom de l'imprimante à ActivePrinter. Pour avoir le nom exact, mettez la par défaut, et faites dans la fenêtre d'exécution un ? Application.ActivePrinter
Ensuite cette macro imprime votre document et remet la situation en l'état : Sub Imprime() Dim ImprCour As String Dim Impr2 As String ImprCour = Application.ActivePrinter Impr2 = "Ici le nom de l'imprimante" Application.ActivePrinter = Impr2 ActiveDocument.PrintOut Application.ActivePrinter = ImprCour End Sub