Bonjour, j'ai crée un petit programme de calcul auquel j'ai associé une fonction d'impression. Depuis j'ai fais installer un deuxième écran sur mon pc et la fonction d'impression ne fonctionne plus vraiment, quelqu'un peut il m'aider d'avance merci à tous.

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

le problème c'est que ça ne n’imprime qu'une bande de l'écran

Ha aussi je suis passé de XP à windows 7.

Est ce que ça joue un rôle?

D'avance merci j'ai vraiment besoin que mon programme fonctionne.