salut,
Je travail sur Excel 2003, à l'aide du code suivant j'arrive a faire un bref aperçu puis impression . Comment faire pour augmenter le temps de l'aperçu pour bien voir la feuille à imprimer.
Le 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
26
27
28
29
30
31
Private Sub CommandButton1_Click()
 Sheets("Certif A").Activate
    [I15].Value = UsF5.TextBox2.Text
    [D22].Value = UsF5.TBx2.Text
    [J22].Value = UsF5.TBx2.Text
    [C19].Value = UsF5.TBx3.Text
    [I19].Value = UsF5.TBx3.Text
    [F20].Value = UsF5.TBx5.Text
    [L20].Value = UsF5.TBx5.Text
    [C20].Value = UsF5.TBx6.Text
    [I20].Value = UsF5.TBx6.Text
    [D25].Value = UsF5.TBx7.Text
    [J25].Value = UsF5.TBx7.Text
    [D27].Value = UsF5.TBx8.Text
    [J27].Value = UsF5.TBx8.Text
    [D26].Value = UsF5.TBx9.Text
    [J26].Value = UsF5.TBx9.Text
    [B28].Value = UsF5.TBx10.Text
    [H28].Value = UsF5.TBx10.Text
    [C15].Value = UsF5.TextBox2.Text
    certificatA
    With Sheets("Certif A").PageSetup 
.PrintArea = "A1:L38" 
.Orientation = xlLandscape 
.BlackAndWhite = True 
.CenterHorizontally = True 
.CenterVertically = True 
End With
Sheets("Certif A").PrintOut Copies:=1, Collate:=True 
    End
End Sub
Merci
Cordialement