Problème : xlDialogPrinterSetup

[pacoako]

Bonjour tout le monde!

J'ai un petit pépin avec une commandbar que je créer à l'ouverture de mon fichier... Tout se déroule bien sauf lorsque l'on arrive à la ligne : .OnAction = Application.Dialogs(xlDialogPrinterSetup).Show

Cette ligne fait apparaitre au lancement une boite de dialogue pour sélectionner une imprimante. Ma question est la suivante : Est-il possible de ne pas faire apparaitre cette boite?.

Je vous laisse un apperçu de mon code ainsi qu'un imprimé de ce que vois au lancement.

Merci d'avance!!!
==============
With CommandBar1

Set Menu1 = CommandBar1.Controls.Add(msoControlPopup, , , , False)
With Menu1
.Caption = "Contestations"

Set Button1 = .Controls.Add(msoControlButton, , , , False)
Set Button2 = .Controls.Add(msoControlButton, , , , False)
Set Button3 = .Controls.Add(msoControlButton, , , , False)
Set Button4 = .Controls.Add(msoControlButton, , , , False)

With Button1
.Caption = "Ouvrir"
.OnAction = "Ouvrir"
.Style = msoButtonIconAndCaption
.FaceId = 18
End With
With Button2
.Caption = "Traiter"
.OnAction = "Traiter"
.Style = msoButtonIconAndCaption
.FaceId = 162
End With
With Button3
.Caption = "Sauvegarder"
.OnAction = "Save"
.Style = msoButtonIconAndCaption
.FaceId = 3
End With
With Button4
.Caption = "Imprimer"
.OnAction = Application.Dialogs(xlDialogPrinterSetup).Show
.Style = msoButtonIconAndCaption
.FaceId = 4
End With

End With

 

[pacoako]

Re : Problème : xlDialogPrinterSetup

Bon, j'ai reglé mon problème... je fais passer l'action par une macro Imprimer entre ""

With Button4
.Caption = "Imprimer"
.OnAction = "Imprimer"
.Style = msoButtonIconAndCaption
.FaceId = 4
End With

Sub Imprimer()

Application.Dialogs(xlDialogPrinterSetup).Show

End Sub

Mon problème c'est que je n'ai pas du tout le bon dialog qui apparait.. je voudrais avoir le menu pour imprimer.. comme lorsque l'on fait ctrl+p

Si quelqu'un a une idée.. lâchez vous lousse!! =))

Bonne journée

 

[RENAUDER]

Re : Problème : xlDialogPrinterSetup

Bonjourm
Tu veux faire quoi à la place, lancer l'impression ?
Application.Dialogs(xlDialogPrint).Show (identique à CTRL+P)
Ou peut-être avec
.OnAction=Imprime

Sub Imprime()
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[pacoako]

Re : Problème : xlDialogPrinterSetup

xlDialogPrint

Wow, j'me répond tout seul aujoud'hui lol

Désolé d'avoir créé un post pour rien

A +++ hehe

 

[pacoako]

Re : Problème : xlDialogPrinterSetup

Bonjourm
Tu veux faire quoi à la place, lancer l'impression ?
Application.Dialogs(xlDialogPrint).Show (identique à CTRL+P)
Ou peut-être avec
.OnAction=Imprime

Sub Imprime()
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Merci pour la réponse!!