aide sur impression usf

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

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

Re : aide sur impression usf

Personne a une petite reponse pour m'aider??