Bouton imprimer - USERFORM

Bonjour à tous,

Ayant pulvérisé le cartouche de la boîte sur le dernier code du bouton imprimern je préfère demander avant si le code que j'ai est prêt à l'utilisation ?

Private Sub CommandButton2_Click()
Set Ws = Sheets.AdD
Ws.PageSetup.Orientation = xlLandscape
Ws.Paste
ActiveSheet.PageSetup.CenterHorizontally = True
ActiveSheet.PageSetup.CenterVertically = True
UserForm1.PrintForm
End Sub

Le but étant d'imprimer l'UF EN MODE PAYSAGE sur une feuille A4 de façon centrée.

Bonjour

Trouvé sur un autre Forum

Code de Michel Xld(Non testé)

Private Declare Sub keybd_event Lib 'user32' ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Sub CommandButton1_Click()
Dim Wrd As Object
Dim WrdDoc As Object

keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents

Set Wrd = CreateObject('Word.Application')
On Error Resume Next
Set WrdDoc = Wrd.Documents.Add
Wrd.Visible = False
WrdDoc.PageSetup.Orientation = 1

Wrd.Selection.PasteSpecial
WrdDoc.PrintOut

WrdDoc.Close False
WrdDoc.Quit
End Sub

Cordialement

Oui sur excel download je sais je l'ai vu.

Mais n'est ce pas un peu excessif comme code pour si peu de choses ???

Dans le code de Michel, je ne pige rien...

• Qu'est ce qui correspond au format paysage ?
• Quelle est la partie de code qui centre ?

Bonjour elliotr

quand tu dis "pulvériser" c'est la consommer complètement je suppose.

Je ne suis pas un pro en VBA mais insère ceci:

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate :=True

pour imprimer 1 fois la page 1.

En insérant une inputbox par exemple tu pourra modifer le nombre de copie et les pages à imprimer.

patrick33 a écrit :

Bonjour elliotr

quand tu dis "pulvériser" c'est la consommer complètement je suppose.

Je ne suis pas un pro en VBA mais insère ceci:

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate :=True

pour imprimer 1 fois la page 1.

En insérant une inputbox par exemple tu pourra modifer le nombre de copie et les pages à imprimer.

Ok merci.

Et pour le code que j'ai sinon, c'est bon ?

En tout cas le code donné au tout début ne fonctionne pas ! ou du moins je n'arrive pas à le faire marcher !