Imprimer un Useform

[Papynou]

Bonjour le forum,

Pour imprimer un UserForm j'utilise un des codes de MichelXld

Private Sub Cmb_Imprimer_Click()
Dim Ws As Worksheet

keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Set Ws = Sheets.Add
Ws.PageSetup.Orientation = xlLandscape
Ws.Paste
With Ws
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
.PrintOut
End With
End Sub

Code auquel j'ai rajouté : .Delete entre .PrintOut et End With, de façon à supprimer la feuille créée mais Excel me demande si je veux vraiment la supprimer

Comment puis-je faire pour supprimer cette demande d'Excel que je trouve inutile

 

[mutzik]

Re : Imprimer un Useform

boujour

essaie :
application.displayalerts = false
.delete
application.displayalerts = true

 

[Papynou]

Re : Imprimer un Useform

Bonjour Bertrand,

C'est farpait !

Merci de ton coup de main.