Bonjour tout le monde,

J'ai une petite question qui me taraude.

J'ai un code qui me permet de faire une impression d'un userform en utilisant la fonction "Copie Ecran", puis en collant cette copie d'écran dans une nouvelle feuille.

Mon problème est qu'à l'ouverture du PDF, la qualité du document n'est pas terrible (voir presque illisible).

Du coup, je souhaitais savoir si il était possible d'ajouter une ligne de code afin d'augmenter la qualité de la fonction "Copie ecran".

Ci-dessous mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton4_Click()
Dim Ws As Worksheet
 
    '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
 
    'impression centrée dans la page
    With Ws
        .PageSetup.CenterHorizontally = True
        .PageSetup.CenterVertically = True
        .PageSetup.Orientation = xlLandscape
        .PageSetup.PaperSize = xlPaperA3
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = 1
 
 
        .PrintOut
    End With
 
End Sub
Par avance merci.

Sebastien