impression form

Question

Bonjour, 
j'ai toujours quelques soucis de comprehension en ce qui concerne l'impression avec l'objet print d'image et de listbox.
En effet j'ai une form que je voudrais imprimer.cette forme contient plusieurs images dispos&#233;es a differents endroits dans ma form.(4 images).je ne comprend pas pourquoi seul la premiere est copier 4 fois en cascade.(l'une sur l'autre)

If TypeOf controle Is Image Then
    
    Let Printer.CurrentX = controle.Left
    Let Printer.CurrentY = controle.Top


    For i 0 To i 3
printer.PaintPicture frmapercu.Image1(i).Picture, Printer.CurrentX, Printer.CurrentY
    Next i
    
End If

En ce qui concerne les list je n'arrivre pas a afficher leur contenu:

If TypeOf controle Is ListBox Then
    Let Printer.CurrentX = controle.Left
    Let Printer.CurrentY = controle.Top
    For i = 0 To controle.ListCount - 1
        Printer.CurrentX = controle.Left
        Printer.Print (controle.List(i))
    Next i
End If

Quelqu'un pourrait-il m'aider svp:
merci

crenaud76 · Answer

Pourquoi une boucle de 0 à 3 dans ton If TypeOf controle ?

Je suppose que tout cela est dasn une boucle For Each controle in Me.Controls ? Non ?
Dans ce cas je ferai simplement cela :

For Each Controle In Me.Controls
 If TypeOf controle Is Image Then
   printer.PaintPicture Controle.Picture, Controle.left, Controle.top
 ElseIf TypeOf Controle Is ListBox Then
    Printer.currentY = controle.Top
    For i = 0 To controle.ListCount - 1
        Printer.CurrentX = controle.Left
        Printer.Print (controle.List(i))
    Next
 End If
Next

Pour les listes, ormis la suppression de l'init de Printer.CurrentX avant le For i = 0 .... qui ne sert à rien, je n'ai pas changer ... ca devrait être OK ! Mais j'ai pas vb sous la main pour tester.

CR

protozorus · Answer

ok merci de ton aide!

Impression form

2 réponses

Discussions similaires