exemple: Picture1.AutoRedraw = True Picture1.ScaleMode = vbMillimeters 'mode de mesure 'Pour positionner le texte depuis les coordo d'un label 'Picture1.currentx=label1.left 'Picture1.currenty=label1.top Picture1.CurrentX = 10 '10 mm a gauche Picture1.CurrentY = 20 ' 20 mm du haut Picture1.ForeColor = vbWhite 'Pour imprimer le texte du label 'picture1.print label1.caption Picture1.Print "Le texte" 'Impression Picture1.Picture = Picture1.Image Printer.ScaleMode = vbMillimeters 'imprime une image a 5cm de la gauche de la feuille 'a 1 cm du haut de la feuille 'dimention de l'image 10cm par 12 Printer.PaintPicture Picture1.Image, 50, 10, 100, 120 Printer.EndDoc
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command1_Click() 'IMPRESSION IMAGE Picture1.ScaleMode = vbMillimeters 'mode de mesure Printer.ScaleMode = vbMillimeters 'imprime une image depuis sa position dur la form 'et sa taille sur la form Printer.PaintPicture Picture1.Image, Picture1.ScaleLeft, Picture1.ScaleTop, Picture1.ScaleWidth, Picture1.ScaleHeight 'IMPRESSION TEXTE 'Pour positionner le label depuis ses coordo sur picture1 Printer.CurrentX = Label1.Left 'Positionne le texte axe X sur imprimante Printer.CurrentY = Label1.Top 'Positionne le texte axe Y sur imprimante Printer.Print Label1.Caption 'Imprime le contenue de label1 a la position precedente Printer.EndDoc 'Lance l'impression End Sub