Bonjour, existe-t-il un moyen pour avoir 2 icones d'imprimantes différentes,
par ex une papier (jet d'encre ou laser) et une PDF. Pour éviter de
"sélectionner à chaque fois un changement d'imprimante, rechanger pour le
document suivant, etc....
Merci
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
Geo
Bonjour
[ Cette réponse est faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour, existe-t-il un moyen pour avoir 2 icones d'imprimantes différentes, par ex une papier (jet d'encre ou laser) et une PDF. Pour éviter de "sélectionner à chaque fois un changement d'imprimante, rechanger pour le document suivant, etc.... Merci
On peut faire une petite macro où on définit ActivePrinter pour imprimer le document concerné puis on remet l'ancienne.
-- A+
Bonjour
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Bonjour, existe-t-il un moyen pour avoir 2 icones d'imprimantes différentes,
par ex une papier (jet d'encre ou laser) et une PDF. Pour éviter de
"sélectionner à chaque fois un changement d'imprimante, rechanger pour le
document suivant, etc....
Merci
On peut faire une petite macro où on définit ActivePrinter pour
imprimer le document concerné puis on remet l'ancienne.
[ Cette réponse est faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ] Bonjour, existe-t-il un moyen pour avoir 2 icones d'imprimantes différentes, par ex une papier (jet d'encre ou laser) et une PDF. Pour éviter de "sélectionner à chaque fois un changement d'imprimante, rechanger pour le document suivant, etc.... Merci
On peut faire une petite macro où on définit ActivePrinter pour imprimer le document concerné puis on remet l'ancienne.
-- A+
Geo
Re
J'ai retrouvé une macro qui fait ça, à adapter bien sûr. Sub ImprimeImpr2() Dim ImprCour As String Dim Impr2 As String ImprCour = Application.ActivePrinter Impr2 = "ScanSoft PDF Create!" Application.ActivePrinter = Impr2 ActiveDocument.PrintOut Application.ActivePrinter = ImprCour End Sub
-- A+
Re
J'ai retrouvé une macro qui fait ça, à adapter bien sûr.
Sub ImprimeImpr2()
Dim ImprCour As String
Dim Impr2 As String
ImprCour = Application.ActivePrinter
Impr2 = "ScanSoft PDF Create!"
Application.ActivePrinter = Impr2
ActiveDocument.PrintOut
Application.ActivePrinter = ImprCour
End Sub
J'ai retrouvé une macro qui fait ça, à adapter bien sûr. Sub ImprimeImpr2() Dim ImprCour As String Dim Impr2 As String ImprCour = Application.ActivePrinter Impr2 = "ScanSoft PDF Create!" Application.ActivePrinter = Impr2 ActiveDocument.PrintOut Application.ActivePrinter = ImprCour End Sub
-- A+
Albal
Merci pour l'aide.
Je vais essayer
Albal
"Geo" a écrit :
Re
J'ai retrouvé une macro qui fait ça, à adapter bien sûr. Sub ImprimeImpr2() Dim ImprCour As String Dim Impr2 As String ImprCour = Application.ActivePrinter Impr2 = "ScanSoft PDF Create!" Application.ActivePrinter = Impr2 ActiveDocument.PrintOut Application.ActivePrinter = ImprCour End Sub
-- A+
Merci pour l'aide.
Je vais essayer
Albal
"Geo" a écrit :
Re
J'ai retrouvé une macro qui fait ça, à adapter bien sûr.
Sub ImprimeImpr2()
Dim ImprCour As String
Dim Impr2 As String
ImprCour = Application.ActivePrinter
Impr2 = "ScanSoft PDF Create!"
Application.ActivePrinter = Impr2
ActiveDocument.PrintOut
Application.ActivePrinter = ImprCour
End Sub
J'ai retrouvé une macro qui fait ça, à adapter bien sûr. Sub ImprimeImpr2() Dim ImprCour As String Dim Impr2 As String ImprCour = Application.ActivePrinter Impr2 = "ScanSoft PDF Create!" Application.ActivePrinter = Impr2 ActiveDocument.PrintOut Application.ActivePrinter = ImprCour End Sub