cs_jperre
Messages postés268Date d'inscriptionlundi 9 janvier 2006StatutMembreDernière intervention19 janvier 20172 13 févr. 2006 à 22:32
Lorsque l'on place des instructions dans un programme, la place de ces instructions est importante.Ainsi, les deux instructions :
Let Printer.CurrentX=controle.Left
Let Printer.CurrentY=controle.Top
ne sont pas placées dans la boucle for... next
Le code correct s'écrirait, à mon avis...
Dim cImg as Control
For Each cImg In Controls
If TypeOf cImg Is Image Then
Printer.CurrentX=cImg.Left
Printer.CurrentY=cImg.Top
Printer.PaintPicture cImg.Picture, Printer.CurrentX, Printer.CurrentY
End If
Next cImg