Discussion :

[Theocourant]

Bonjour tout le monde,

Voilà je rencontre un souci avec l'impression d'une form avec VB

Ma form, contenant une 50aine de contrôles + une image en arrière plan et une barre de menu, doit être imprimer grâce à un bouton "Imprimer".
Le code du bouton est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub mnu_Print_Click()
    On Error GoTo ErrHandler
    CommonDialog1.CancelError = True
    CommonDialog1.ShowPrinter
    Me.PrintForm
    Exit Sub
ErrHandler:
    Exit Sub
End Sub

Elle est définie en paysage mais lors de l'impression avec PrintForm, elle est imprimer en Portrait d'où problème...

Mon CommonDialog est défini en Paysage également ainsi que génération d'erreur et PrinterDefault.

Merci d'avance

Théo

[Theocourant]

Si je ne suis pas claire : dites le moi...

Merci à ceux qui prennent le temps de lire mon post

@+

Théo

[Theocourant]

Enfin, j'ai trouvé la solution à mon problème :
le CommonDialog ne répercutait pas l'orientation du papier sélectionné sur l'envoi des données !!!! d'où impression en portrait au lieu de paysage.

De ce fait, maintenant, je passe par une récupération de l'orientation sélectionnée par l'utilsateur pour l'affecter aux paramètres du printer
A titre indicatif voici le code utilisé :

Code :

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

1
2
3
4
5
6
 Dim Orientation
 
Orientation = CommonDialog1.Orientation
...
Printer.Orientation = vbPRORLandscape
Me.PrintForm

et cela semble fonctionner correctement (à contrôler sur différentes imprimantes)

@+

Théo