Pour impression

[Smilingjoe]

Bonjour,

J'ai presque fini un fichier qui doit aider à une prescription automatisée.

Mais j'ai un problème pour imprimer mon interface principale = USF_principal.

Il est trop grand pour le printform.

Une idée ??? Merci pour votre aide.

 

[smilingjoe]

Pas d'idées ?

J'en suis à essayer de passer par word. Mais je bug sur le selection.paste ????

Mon code :

Private Sub CommandButton_imprimer_Click()
Dim ACopier As UserForm
Dim AppWord As Object
Application.ScreenUpdating = False

Set ACopier = USF_PRINCIPAL
ACopier.Copy

Set AppWord = CreateObject('Word.Application')
With AppWord
.Visible = True
.documents.Open Filename:='C:\\Aimprimer.doc'
Selection.Paste '<---- :sick:
End With
End Sub

Merci de votre aide .