Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Impression userfor avec choix de l'imprimante

4 réponses
Avatar
JP
Bonjour,

J'ai mis en place cette macro pour imprimer un userform.
Probleme, l'impression se fait malgr=E9 tout sur l'imprimante par d=E9faut =
selectionnee dans le gestionnaire d'impression.
Existe-t-il une solution =E0 mon probl=E8me?

Merci d'avance

JP

Private Sub Image1_Click()
'rend invisible les boutons et l'image
With UserForm4
.CommandButton1.Visible =3D False
.CommandButton2.Visible =3D False
.Image1.Visible =3D False
End With
'Choix de l'imprimante
Application.Dialogs(xlDialogPrinterSetup).Show
'imprime l'userform sur l'imprimante s=E9lectionn=E9e
UserForm4.PrintForm
'rend visible les boutons et l'image
With UserForm4
.CommandButton1.Visible =3D True
.CommandButton2.Visible =3D True
.Image1.Visible =3D True
End With
End Sub

4 réponses

Avatar
DanielCo
Bonjour,
Regade la réponse de MichD ici :
http://answers.microsoft.com/fr-fr/office/forum/office_2007-excel/modifier-limprimante-par-d%C3%A9faut-du-panneau-de/772aa326-507d-4637-aa18-f4ab99d2ee9f
Daniel


Bonjour,

J'ai mis en place cette macro pour imprimer un userform.
Probleme, l'impression se fait malgré tout sur l'imprimante par défaut
selectionnee dans le gestionnaire d'impression. Existe-t-il une solution à
mon problème?

Merci d'avance

JP

Private Sub Image1_Click()
'rend invisible les boutons et l'image
With UserForm4
.CommandButton1.Visible = False
.CommandButton2.Visible = False
.Image1.Visible = False
End With
'Choix de l'imprimante
Application.Dialogs(xlDialogPrinterSetup).Show
'imprime l'userform sur l'imprimante sélectionnée
UserForm4.PrintForm
'rend visible les boutons et l'image
With UserForm4
.CommandButton1.Visible = True
.CommandButton2.Visible = True
.Image1.Visible = True
End With
End Sub
Avatar
JP
Bonjour Daniel,

Toujours présent je vois!

J'ai regardé la proposition de Denis. Dans mon cas, la macro est déclen chée par le clic sur une image contenu dans un userform.

Comment affecter une macro précise dans ce cas la?

Merci

JP
Avatar
DanielCo
Tu dois exécuter la macro fixant l'imprimante par défaut, imprimer ton
formulaire et éventuellement remettre les choses dans l'état où tu les
as trouvées.
Daniel


Bonjour Daniel,

Toujours présent je vois!

J'ai regardé la proposition de Denis. Dans mon cas, la macro est déclenchée
par le clic sur une image contenu dans un userform.

Comment affecter une macro précise dans ce cas la?

Merci

JP
Avatar
JP
Re
Effectivement!

Merci

JP