[MichelXld]

bonjour

tu peux tester


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 = wdOrientLandscape

Wrd.Selection.PasteSpecial
WrdDoc.PrintOut

WrdDoc.Close False
WrdDoc.Quit
End Sub


bonne journée
MichelXld