OVH Cloud OVH Cloud

[Nioube] Impression

2 réponses
Avatar
Eric
Voilà, j'ai découvert l'objet printer, je suis tout content, c'est ce que je
cherchais ;)

Je cherche à imprimer une image, et à imprimer un texte sur cette image.
Instinctivement, j'ai écrit :

Private Sub ticket_Click()
Printer.PaintPicture fond.Image, 0, 0
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.TextWidth "test"
Printer.EndDoc
End Sub

Mais ça ne me marque pas 'test' sur l'image... Où est l'erreur ?

Merci d'avance.

Eric

2 réponses

Avatar
François Picalausa
Hello,

L'erreur se situe dans la ligne
Printer.TextWidth "test"
TextWidth est une fonction qui permet de retrouver la largeur du texte par
rapport au device (ici l'imprimante)
Tu devrais utiliser
Printer.Print "test"

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com

"Eric" a écrit dans le message de
news:cga3e4$r5g$
Je cherche à imprimer une image, et à imprimer un texte sur cette
image.


Avatar
Eric
> Printer.Print "test"



Ca marche, merci bcp !