[VB6] Imprimer une form en PaysageRésolu

Question

Bonjour tout le monde,


Voil&#224; je rencontre un souci avec l'impression d'une form avec VB


Ma form, contenant une 50aine de contr&#244;les + une image en arri&#232;re plan + une barre de menu, doit &#234;tre imprimer gr&#226;ce &#224; un bouton "Imprimer".
Le code du bouton est le suivant:

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&#233;finie en paysage mais lors de l'impression avec PrintForm, elle est imprimer en Portrait d'o&#249; probl&#232;me...


Mon CommonDialog est d&#233;fini en Paysage &#233;galement ainsi que g&#233;n&#233;ration d'erreur et PrinterDefault.


Merci d'avance


 Th&#233;o

Zlub · Accepted Answer

Salut theocourant,


Bon, alors faut d&#233;finir le printer sur Landscape ... Je te proposes de
tester le code suivant pour voir comment &#231;a fonctionne (il te faudra un
command dialog et un boutton):




Private Sub Command1_Click()

    Dim BeginPage, EndPage, NumCopies, Orientation, i

  

    CommonDialog1.CancelError = True

    On Error GoTo ErrHandler

  

    CommonDialog1.ShowPrinter

  

    BeginPage = CommonDialog1.FromPage

    EndPage = CommonDialog1.ToPage

    NumCopies = CommonDialog1.Copies

    Orientation = CommonDialog1.Orientation

  

    For i = 1 To NumCopies

      Printer.Orientation = cdlLandscape

      Me.PrintForm

    Next

    Exit Sub

  ErrHandler:

  

    Exit Sub

  End Sub



    Tiens moi au courrant ,

++

Zlub

theocourant · Answer

Salut Zlub,

En effet, ta solution fonctionne

Un chose qu'en m&#234;me : la constante pass&#233;e dans Printer.Orientation est vbPRORLandscape
Enfin, je pense qu'il s'agit d'une variation de la d&#233;finition des constantes vb

Merci encore


 Th&#233;o

[VB6] Imprimer une form en Paysage

2 réponses

Discussions similaires