Discussion :

[dénérion]

Bonjour,

j'ai une petit programme de calcul excel qui beug à l'impression est ce que quelqu'un pourrais m'aider? je poste 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
32
Private Sub btnimp_Click()

UserForm1.MultiPage1.Value = 4
 Me.MultiPage1.Value = 4
    Me.Repaint
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
    With ActiveSheet
     .Paste
       p = .Shapes.Count
     .Shapes(p).Top = .Range("a24").Top
     .Shapes(p).Left = .Range("a24").Left
     .Shapes(p).Height = 300
     .Shapes(p).Width = 500
    End With




Sheets("fenêtre").Activate
Range("A1:J33").Select
    Selection.PrintOut Copies:=1, Collate:=True
Range("a1").Select

ActiveSheet.Shapes(p).Delete

Sheets("feuil1").Activate


UserForm1.MultiPage1.Value = 0

End Sub

Il bloque à la fonction "paste" ou ne m'imprime qu'un petite bande de l'écran .

PS: j'ai installer un deuxième écran sur mon pc peut être que ça vient de là,

D'avance merci

[Soraphiroth]

Ne faudrait-il pas faire un .copy avant .paste ? Là ta macro n'a rien à copier.

[dénérion]

Bonjour

pour tous dire je ne connais pas ce code c'est un membre du forum qui me l'avais rédiger il y a quelque temps donc si vous avez la solution n'hésitez pas.

Ps; j'ai quand même rédigez toutes mes ligne de calcul mais je connait pas le codage pour les impressions