Discussion :

[vince6262]

bonjour, voici mon petit probleme

je viens de concevoir un petit logiciel de calcul sous autocad et je souhaiterais imprimer ma form en mode paysage.

Pour imprimer j utilise tout simplement cette fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaForm.PrintForm

Merci de votre aide

[vince6262]

c'est resolu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CommandButton1_Click()
Dim Wrd As Object, WrdDoc As Object
 
    'Copie d'écran de la forme active
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
 
    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