Discussion :

[Mapokko]

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

[JPierreM]

Avant la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Certif A").PrintOut Copies:=1, Collate:=True

place la ligne suivante pour faire un aperçu avant impression

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Certif A").PrintPreview

[Mapokko]

Salut, ça marche pas ,j'ai pensé à ça ,mais où fallait le mettre?

[JPierreM]

je me permets d'insister ça fonctionne chez moi

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
Private Sub CommandButton1_Click()
 
 
 
With Sheets("Certif A").PageSetup
    .PrintArea = "A1:L38"
    .Orientation = xlLandscape
    .BlackAndWhite = True
    .CenterHorizontally = True
    .CenterVertically = True
End With
 
Sheets("Certif A").PrintPreview
 
Sheets("Certif A").PrintOut Copies:=1, Collate:=True
    End
 
End Sub

place la ligne Sheets("Certif A").PrintPreview comme ci dessus

[Mapokko]

Désolé de te dire que chez moi le système se bloc mon cher ami. peut être à cause de ce que j'ai avant :

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
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

et cela me permet de remplir certaines cellules de mon certificat .

[JPierreM]

si tu peux envoie le fichier pour voir d'où cela peut venir

[Mapokko]

je me permets d'insister ça fonctionne chez moi

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
Private Sub CommandButton1_Click()
 
 
 
With Sheets("Certif A").PageSetup
    .PrintArea = "A1:L38"
    .Orientation = xlLandscape
    .BlackAndWhite = True
    .CenterHorizontally = True
    .CenterVertically = True
End With
 
Sheets("Certif A").PrintPreview
 
Sheets("Certif A").PrintOut Copies:=1, Collate:=True
    End
 
End Sub

place la ligne Sheets("Certif A").PrintPreview comme ci dessus

J'ai fais un autre commandbutton et j'ai placé ton code mais toujours même résultat Excel se bloc et ne veux pas se fermer ,je dois redémarrer le système

[JPierreM]

Je te cite
1er message

Comment faire pour augmenter le temps de l'aperçu pour bien voir la feuille à imprimer

Dernier message

J'ai fais un autre commandbutton et j'ai placé ton code mais toujours même résultat Excel se bloc et ne veux pas se fermer ,je dois redémarrer le système

Que se passe t-il réellement?
A lire le 1er message il s'agit simplement d'un aperçu avant impression, le message suivant parle d'Excel qui se bloque et redémarrage du système…
Merci de bien présenter le problème dans son intégralité et envoyer si possible le fichier plutôt que des bribes