impression userform et suppression de la copie

[davidp]

Bonjour le forum,

je me permets de vous déranger pour le problème suivant:

j'ai récupéré sur le forum l'excellent code de Michel XLD qui permet d'imprimer un userform au format paysage.

-Est il possible aprés l'impression de l'userform de supprimer la copie de l'userform qui à été crée sur la feuille du classeur?

NB/
(j'ai aussi un bouton qui ferme l'userform et le classeur en l'enregistrant).

merci d'avance pour votre aide

Bonne soirée
DAVID

 

[cbea]

Re : impression userform et suppression de la copie

Bonsoir David,

Voici une solution :

Private Sub CommandButton1_Click()
    Dim Ws As Worksheet

[COLOR="red"]    Application.DisplayAlerts = False[/COLOR]
    
    'Copie d'écran de la forme active
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
    
    'Ajoute une feuille pour coller l'image de la forme
    Set Ws = Sheets.Add
    Ws.Paste
    
    'Pour redimensionner l'image, si nécessaire.
    'With Ws.Shapes(1)
        '.Width = 400
        '.Height = 300
    'End With
    
    'impression en mode paysage
    With Ws
        .PageSetup.Orientation = xlLandscape
        
        'pour centrer l'impression
        '.PageSetup.CenterHorizontally = True
        '.PageSetup.CenterVertically = True
        .PrintOut
    End With
    
[COLOR="Red"]    ActiveSheet.Delete[/COLOR]
[COLOR="red"]    Application.DisplayAlerts = True[/COLOR]
End Sub

 

[davidp]

Re : impression userform et suppression de la copie

Bonsoir CBEA ,


Génial,

je te remercie pour ton aide et ta rapidité, cela fonctionne à merveille .


Bonne nuit et bonsoir a tout le forum

DAVID