Imprimer une form

Question

Bonjour &#224; tous,
Je suis novice en developpement et je souhaiterais une explication simple ou un exemple simple pour imprimer un formulaire avec l'objet printer.mon formulaire est compos&#233; de nombreuses frames, label et textbox, imagebox...
pourriez-vous m'expliquer le cheminement &#224; suivre afin de programmer l'impression de mon formulaire avc l'objet printer.C'est un projet ke je dois pr&#233;senter! merci de bien vouloir m'aider

[mailto:protozorus@msn.com protozorus@msn.com]

cs_DARKSIDIOUS · Answer

En quel langage programme tu ? VBA, VB6 ou VB.NET ?

En VB6, c'est toujours la gal&#232;re d'imprimer le contenu de contr&#244;les sur un formulaire !

Il faut parcourir chaque contr&#244;le, puis r&#233;cup&#232;rer leur position et leur taille, et enfin, imprimer ce que tu veux (texte, image, checkbox, etc.)

En gros, ca donne :

Dim oControl as control
For Each oControl In Me.Controls

    if typeof ocontrol is textbox then

        let Printer.CurrentX = ocontrol.left
        let Printer.CurrentY = ocontrol.top
        Printer.Print ocontrol.Text

    end if

Next oFor1

_
Avant de poster dans le forum,
Pri&#232;re d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx

protozorus · Answer

re ,

merci de m'avoir repondu, j'avance tout doucement mais j'avance!

En effet le developpe en vb6.
Ma form contient de nombreuses frames image list.
Si je comprends bien pour chacun des controles de ma feuille, je dois definir leur place;
Mes frames sont compos&#233;es de plusieurs listbox, pour que l'impression soit correcte, je dois definir l'emplacement de la frame puis ensuite l'emplacement des listes dans  cette frames?

Une fois la position des controles effectuer l'instructuion "print.enddoc" suffit-elle a imprimer mon formulaire?

j'essai juste de comprendre la demarche a suivre pour pouvoir imprimer mon formulaire.
merci de m'aider!

Renfield · Answer

fonction PrintForm...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

protozorus · Answer

Merci pour printform mais ceci n'imprime que la parite du formulaire visible &#224; l'ecran, non?

protozorus · Answer

salut,

encore une kestion:
est-il necessaire de copier les controles frame qui contiennent des list ou copier directement les list ?

une parti de code correspond a cela:

For Each controle In frmapercu.Controls


    If TypeOf controle Is Frame Then
        Let Printer.CurrentX = controle.Left
        Let Printer.CurrentY = controle.Top
        Printer.Print controle.Frame
    End If
    If TypeOf controle Is ListBox Then
        Let Printer.CurrentX = controle.Left
        Let Printer.CurrentY = controle.Top
        Printer.Print controle.List
    End If
    If TypeOf controle Is Label Then
        Let Printer.CurrentX = controle.Left
        Let Printer.CurrentY = controle.Top
        Printer.Print controle.Caption
    End If
    If TypeOf controle Is Image Then
        Let Printer.CurrentX = controle.Left
        Let Printer.CurrentY = controle.Top
        Printer.Print controle.Picture
    End If

Cela vous semble t-il correct?

merci de votre attention

cs_DARKSIDIOUS · Answer

Oula, tu m&#233;lange un peu tout l&#224; :
Tout les &#233;l&#233;ments ne peuvent pas &#234;tre directement imprim&#233;s, par exemple, les listes, ou les images, ca donnerai plut&#244;t :

For Each controle In frmapercu.Controls     If TypeOf controle Is Frame Then
        Let Printer.CurrentX = controle.Left
        Let Printer.CurrentY = controle.Top
        Printer.Print controle.Frame
    End If
    If TypeOf controle Is ListBox Then
        Let Printer.CurrentX = controle.Left
        Let Printer.CurrentY = controle.Top
        for i = 0 to control.listcount - 1
            printer.currentx = controle.left
           printer.print(control.list(i)
        next i
    End If
    If TypeOf controle Is Label Then
        Let Printer.CurrentX = controle.Left
        Let Printer.CurrentY = controle.Top
        Printer.Print controle.Caption
    End If
    If TypeOf controle Is Image Then
        Let Printer.CurrentX = controle.Left
        Let Printer.CurrentY = controle.Top
        Printer.PaintPicture controle.left, controle.top
    End If
next

_
Avant de poster dans le forum,
Pri&#232;re d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx

protozorus · Answer

lol,

oula je commence a comprendre, la manipulation est loin d'etre evidente je vais tester de mon cot&#233; trankilement!
Je refrai sans doute apel a ton savoir!
Merci bien

cs_DARKSIDIOUS · Answer

Oui, comme je l'ai dit : l'impression n'a jamais &#233;t&#233; simple en VB6 !



Malheureusement, il n'existe pas de fonction "standard" pour imprimer
un contr&#244;le, il faut faire le code soit-m&#234;me. Du coup, pour chaque
contr&#244;le, ca change : tu n'imprime pas un listbox comme un listview &#224;
plusieurs colonne par exemple...

_
Avant de poster dans le forum,
Pri&#232;re d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx

protozorus · Answer

re,
une fois la mise en forme effectuer pour afficher le resultat est-ce:

For Each controle In frmapercu
printer.paintpicture controle.picture, printer.currentX, printer.currentY
next controle

ou

print.enddoc
j'espere avoir &#233;t&#233; clair

cs_DARKSIDIOUS · Answer

Pour imprimer ce que tu veux ensuite : Printer.EndDoc

_
Avant de poster dans le forum,
Pri&#232;re d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx

Imprimer une form

10 réponses

Discussions similaires