Userform a imprimer en paysage [Résolu]

Messages postés
72
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
23 février 2009
- - Dernière réponse : mythiac
Messages postés
72
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
23 février 2009
- 28 nov. 2008 à 11:44
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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
72
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
23 février 2009
3
Merci
resolu avec
'Copie d'écran de la forme active
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 5984 internautes nous ont dit merci ce mois-ci

Commenter la réponse de mythiac
Messages postés
72
Date d'inscription
mardi 23 septembre 2008
Statut
Membre
Dernière intervention
23 février 2009
0
Merci
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!)
Commenter la réponse de mythiac