Aperçu et impression

Version imprimable

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:

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

07/04/2009, 12h41
JPierreM

Avant la ligne

Code:

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

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

Code:

Sheets("Certif A").PrintPreview
07/04/2009, 14h26
Mapokko

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

je me permets d'insister ça fonctionne chez moi

Code:

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

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:

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 .

07/04/2009, 16h41
JPierreM

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

Citation:
Envoyé par JPierreM
je me permets d'insister ça fonctionne chez moi
Code:

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

08/04/2009, 08h22
JPierreM

Je te cite
1er message

Citation:

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

Dernier message

Citation:

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