userform a imprimer en paysageRésolu

Question

bonjour,

j'ai poser la question il y a quelques jours, et j'ai trouvé un semblant de réponse, mais je fais impression page blanche, si quelqu'un peut me dire où ça cloche.

la première chose est la mise en place dans le module de:
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

en suite, dans mon userform13:

Private Sub CommandButton2_Click()

Dim Wrd As Object, WrdDoc As Object
 
'Copie d'écran de la forme active
UserForm13.Copy
 
Set Wrd = CreateObject("Word.Application") 'creation session Word
Wrd.Visible = False 'pour que Word reste masqué pendant l'opération
 
On Error Resume Next
Set WrdDoc = Wrd.Documents.Add
WrdDoc.PageSetup.Orientation = wdOrientLandscape
 
Wrd.Selection.PasteSpecial 'colle dans le document Word
 
With WrdDoc.Shapes(1) 'redimensionnement et positionnement de l'objet imprimé
.Left = 50 'bord gauche
.Top = 50 'bord haut
.Width = 400
End With
 
WrdDoc.PrintOut 'impression
 
WrdDoc.Close False 'ferme le document Word sans sauvegarde
WrdDoc.Quit 'ferme l'application Word

End Sub

merci d'avance

mythiac · Accepted Answer

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

mythiac · Answer

le problème est apparemment dans:

'Copie d'écran de la forme active
UserForm13.Copy

il faut que je sélectionne le userform13 pour qu'il soit possible de le coller en suite...

genre userform13.select (ce qui n'existe pas bien sur!)

Userform a imprimer en paysage

2 réponses

Votre réponse

Discussions similaires