aide sur impression usf

[angoul]

Bonjour

J'ai fini mon application, mais j'ai une erreur d'impression

j'ai programmer mon bouton imprime, cela imprime en format paysage comme je le souhaite, mais a la place de m'imprimer une feuille, il m'imprime 4 feuilles non identique.

Je vous met mon fichier pour un petit coup d'oeil et une aide de votre part.

merci d'avance

 

[john]

Re : aide sur impression usf

Bonjour,

J'ai ajouté ceci juste avant le lancement de ton impression dans ton code et j'ai juste une feuille imprimée ...

.PageSetup.LeftMargin = 0

Bonne journée.

John

 

[angoul]

Re : aide sur impression usf

Merci de ton aide; mais chez moi cela fonctionne pas
cela m'imprime toujour 4 feuilles divers

Private Sub CommandButton21_Click()

Dim Ws As Worksheet

Application.ScreenUpdating = False

'Copie d'écran de la forme active
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents

'Ajoute une feuille pour coller l'image de la forme
Set Ws = Sheets.Add
Ws.PageSetup.Orientation = xlLandscape
Ws.Paste


Unload Me

'Impression centrée dans la page
With Ws

.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
.PageSetup.LeftMargin = 0
.PrintOut
End With

Application.DisplayAlerts = False

ActiveSheet.Delete

Application.DisplayAlerts = True

Application.ScreenUpdating = True

Application.ScreenUpdating = True

End Sub

 

[angoul]

Re : aide sur impression usf

Personne a une petite reponse pour m'aider??