Application.Dialogs(xlDialogPrint).Show

[gagletor]

Bonjour à tous

J'utilise la commande Application.Dialogs(xlDialogPrint).Show afin de choisir mon imprimante.

Jusque là tout vas bien, je peux choisir et imprimer sans problème.

Par contre, si je clic sur annuler, la boite se referme et ma pinge s'imprime quand même.

Y at-il une fonction que je dois rajouter pour lui dire annuler quand je clic annuler...

Merci de votre aide

 

[Hervé]

Bonjour gagletor

peut etre comme ceci :

If Application.Dialogs(xlDialogPrint).Show = False Then
Exit Sub
Else
'ton traitement....
End If

salut

 

[Abel]

Bonjour gagletor,

Essaie avec cette ligne de code :
If Application.Dialogs(xlDialogPrint).Show = False Then Exit Sub

Edition :

Oups !
Pardon Hervé. Pas raffraichi.
Tu vas bien ?

Abel.

Message édité par: Abel, à: 09/02/2006 16:28

 

[gagletor]

re bonjour et merci d'avoir répondu aussi vite

tout fonctionne à merveille :woohoo:

merci beaucoup

Bonne fin de journée

 

[Gorzyne]

Re : Application.Dialogs(xlDialogPrint).Show

Bonjour à tous, je cherche à récupérer le résultat de ma dialogbox lorsqu'elle contient des arguments

Lorsqu'elle contient pas d'argument
res = Application.Dialogs(xlDialogPrint).Show

j'obtiens res = true or false selon que j'ai annulé ou pas mon impression

maintenant si j'écris
res = Application.Dialogs(xlDialogPrint).Show , 1, 0 ,2

j'obtiens une erreur
j'ai tatonné avec plusieurs instructions
a,b,c,d= Application.Dialogs(xlDialogPrint).Show , 1, 0 ,2
array(a,b,c,d=) Application.Dialogs(xlDialogPrint).Show , 1, 0 ,2
etc, etc...

si quelqu'un a une solution pour récupérer le résultat de Application.Dialogs(xlDialogPrint).Show lorsque celui ci est suivi d'options

merci à tous et bon codage
Gorzyne

 

[Gorzyne]

Re : Application.Dialogs(xlDialogPrint).Show

trouvé ! il suffisait de mettre des parenthèses
merci quand même...