bonjour,
je cherche la ligne de code qui permet avant d'imprimer=20
une feuille de calcul, de choisir l'imprimante.
si j'utilise
ActiveWorkbook.PrintOut Copies:=3D1, Collate:=3DTrue
l'impression s'effectue sur l'imprimante par d=E9faut
or j'aimerai que l'utilisateur choisisse son imprimante.
Par avance merci
Isabelle L.
Un coup d'enregistreur de macros à partir du menu "Imprimer..." > Imprimantes....
AV
Vincent.
Bonjour J'ai récemment utilisé la boîte de dialogue suivante, avec succès... Application.Dialogs(xlDialogPrinterSetup).Show Cela dit, si tu connais l'imprimante, tu peux aussi utiliser : Application.ActivePrinter = [nom de l'imprimante] Voili voulou A+
V.
-----Message d'origine----- bonjour, je cherche la ligne de code qui permet avant d'imprimer une feuille de calcul, de choisir l'imprimante.
si j'utilise ActiveWorkbook.PrintOut Copies:=1, Collate:=True l'impression s'effectue sur l'imprimante par défaut or j'aimerai que l'utilisateur choisisse son imprimante. Par avance merci Isabelle L. .
Bonjour
J'ai récemment utilisé la boîte de dialogue suivante, avec
succès...
Application.Dialogs(xlDialogPrinterSetup).Show
Cela dit, si tu connais l'imprimante, tu peux aussi
utiliser :
Application.ActivePrinter = [nom de l'imprimante]
Voili voulou
A+
V.
-----Message d'origine-----
bonjour,
je cherche la ligne de code qui permet avant d'imprimer
une feuille de calcul, de choisir l'imprimante.
si j'utilise
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
l'impression s'effectue sur l'imprimante par défaut
or j'aimerai que l'utilisateur choisisse son imprimante.
Par avance merci
Isabelle L.
.
Bonjour J'ai récemment utilisé la boîte de dialogue suivante, avec succès... Application.Dialogs(xlDialogPrinterSetup).Show Cela dit, si tu connais l'imprimante, tu peux aussi utiliser : Application.ActivePrinter = [nom de l'imprimante] Voili voulou A+
V.
-----Message d'origine----- bonjour, je cherche la ligne de code qui permet avant d'imprimer une feuille de calcul, de choisir l'imprimante.
si j'utilise ActiveWorkbook.PrintOut Copies:=1, Collate:=True l'impression s'effectue sur l'imprimante par défaut or j'aimerai que l'utilisateur choisisse son imprimante. Par avance merci Isabelle L. .
Ellimac
Bonjour,
Avec 3 imprimantes : Choix=InputBox("Taper 1 pour l'imprimante xxx, 2 ...") If Choix=1 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "XXXX1 sur X:", Collate:=True ElseIf Choix=2 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "YYYY1sur Y:", Collate:=True Else ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "ZZZZ1sur Z:", Collate:=True End If
L'enregistreur te donnera les instructions pour chaque imprimante. Camille
-----Message d'origine----- bonjour, je cherche la ligne de code qui permet avant d'imprimer une feuille de calcul, de choisir l'imprimante.
si j'utilise ActiveWorkbook.PrintOut Copies:=1, Collate:=True l'impression s'effectue sur l'imprimante par défaut or j'aimerai que l'utilisateur choisisse son imprimante. Par avance merci Isabelle L. .
Bonjour,
Avec 3 imprimantes :
Choix=InputBox("Taper 1 pour l'imprimante xxx, 2 ...")
If Choix=1 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:= _
"\XXXX1 sur X:", Collate:=True
ElseIf Choix=2 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:= _
"\YYYY1sur Y:", Collate:=True
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter:= _
"\ZZZZ1sur Z:", Collate:=True
End If
L'enregistreur te donnera les instructions pour chaque
imprimante.
Camille
-----Message d'origine-----
bonjour,
je cherche la ligne de code qui permet avant d'imprimer
une feuille de calcul, de choisir l'imprimante.
si j'utilise
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
l'impression s'effectue sur l'imprimante par défaut
or j'aimerai que l'utilisateur choisisse son imprimante.
Par avance merci
Isabelle L.
.
Avec 3 imprimantes : Choix=InputBox("Taper 1 pour l'imprimante xxx, 2 ...") If Choix=1 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "XXXX1 sur X:", Collate:=True ElseIf Choix=2 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "YYYY1sur Y:", Collate:=True Else ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "ZZZZ1sur Z:", Collate:=True End If
L'enregistreur te donnera les instructions pour chaque imprimante. Camille
-----Message d'origine----- bonjour, je cherche la ligne de code qui permet avant d'imprimer une feuille de calcul, de choisir l'imprimante.
si j'utilise ActiveWorkbook.PrintOut Copies:=1, Collate:=True l'impression s'effectue sur l'imprimante par défaut or j'aimerai que l'utilisateur choisisse son imprimante. Par avance merci Isabelle L. .
Isabelle L.
exactement ce que je recherchais... Merci beaucoup
-----Message d'origine----- Bonjour J'ai récemment utilisé la boîte de dialogue suivante, avec
succès... Application.Dialogs(xlDialogPrinterSetup).Show Cela dit, si tu connais l'imprimante, tu peux aussi utiliser : Application.ActivePrinter = [nom de l'imprimante] Voili voulou A+
V.
-----Message d'origine----- bonjour, je cherche la ligne de code qui permet avant d'imprimer une feuille de calcul, de choisir l'imprimante.
si j'utilise ActiveWorkbook.PrintOut Copies:=1, Collate:=True l'impression s'effectue sur l'imprimante par défaut or j'aimerai que l'utilisateur choisisse son imprimante. Par avance merci Isabelle L. .
.
exactement ce que je recherchais...
Merci beaucoup
-----Message d'origine-----
Bonjour
J'ai récemment utilisé la boîte de dialogue suivante,
avec
succès...
Application.Dialogs(xlDialogPrinterSetup).Show
Cela dit, si tu connais l'imprimante, tu peux aussi
utiliser :
Application.ActivePrinter = [nom de l'imprimante]
Voili voulou
A+
V.
-----Message d'origine-----
bonjour,
je cherche la ligne de code qui permet avant d'imprimer
une feuille de calcul, de choisir l'imprimante.
si j'utilise
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
l'impression s'effectue sur l'imprimante par défaut
or j'aimerai que l'utilisateur choisisse son imprimante.
Par avance merci
Isabelle L.
.
exactement ce que je recherchais... Merci beaucoup
-----Message d'origine----- Bonjour J'ai récemment utilisé la boîte de dialogue suivante, avec
succès... Application.Dialogs(xlDialogPrinterSetup).Show Cela dit, si tu connais l'imprimante, tu peux aussi utiliser : Application.ActivePrinter = [nom de l'imprimante] Voili voulou A+
V.
-----Message d'origine----- bonjour, je cherche la ligne de code qui permet avant d'imprimer une feuille de calcul, de choisir l'imprimante.
si j'utilise ActiveWorkbook.PrintOut Copies:=1, Collate:=True l'impression s'effectue sur l'imprimante par défaut or j'aimerai que l'utilisateur choisisse son imprimante. Par avance merci Isabelle L. .
