Probléme d'impression vba exel

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:

---

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

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. :(