P
patrick
Guest
Bonjour.
Voici le code mais que je clique sur ok ou annulé ou la croix j'ai toujour une impresion de lancer.
------------------------------------------------------------------------------
Sub test()
Dim i
i = MsgBox('voulez imprimez cette page ? ', vbOKCancel)
'Ok renvois i=1, Cancel renvois i = 2, fermeture à la croix renvois i = 2
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=False
End Sub
----------------------------------------------------------------------------
Si vous avez une information pour completer le code Merci
Voici le code mais que je clique sur ok ou annulé ou la croix j'ai toujour une impresion de lancer.
------------------------------------------------------------------------------
Sub test()
Dim i
i = MsgBox('voulez imprimez cette page ? ', vbOKCancel)
'Ok renvois i=1, Cancel renvois i = 2, fermeture à la croix renvois i = 2
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=False
End Sub
----------------------------------------------------------------------------
Si vous avez une information pour completer le code Merci