Creer des étiquettes (type AVERy) avec VB

Question

Bonjour 

Je dois cr&#233;er des planches d'&#233;tiquettes ( type AVERY, format connu sous Word) avec une appli VB

Les &#233;tiquettes doivent contenir un code barre et du texte.
Le &#233;tiquettes ne sont pas les m&#234;mes sur toute la planche.

Je cr&#233;e une Picture sous VB avec le code barre et le texte d'une &#233;tiquette.

Comment faire pour l'imprimer ( au bon endroit sur la feuille)

J'esp&#232;re &#234;tre assez clair

Merci pour votre aide

cs_casy · Answer

Tout d&#233;pend comment tu g&#232;re ton impression.
Si tu la g&#232;re manuellement avec l'objet Printer, tu peut positionn&#233; le "curseur" ou tu veut avec les propi&#233;t&#233;s Printer.CurrentX et Printer.CurrentY. Tu le fait avant d'imprimer chaque &#233;tiquette.

cs_tigrou59 · Answer

Bonsoir

cs_tigrou59 · Answer

Bonsoir
J'ai g&#233;n&#233;r&#233; une Picture avec toutes les infos dont j'ai besoin sur l'&#233;tiquette ( code barre, texte....). Dois-je calculer la position de chaque &#233;tiquette ?  Ou puis-je utiliser un modele word ( en effet le format des &#233;tiquette et connu sous word.
Je d&#233;bute sous vb et je ne sais pas lancer une impression
Merci

cs_casy · Answer

Je ne pense pas que tu puisse utilis&#233; le mod&#232;le word directement depuis VB, il faudrait que tu aille l'ouvrir (depuis ton appli) dans word, que tu le remplisse avec tes infos et que tu commande l'impression. C'est possible je pense, mais je ne pourrait pas t'aider pour cela je ne maitrise pas.

Par contre, tu peut utiliser l'impression directe en passant par l'objet Printer.

Tu commence par configurer ton objet Printer en millimetres. Ensuite, comme tu utilise une Picture tu n'as m&#234;me pas besoin de positionn&#233; le curseur, c'est directement l'image que tu vas positionn&#233;. Comme tu utilise un modele Avery tu peut connaitre pr&#233;cis&#233;ment la position de chaque &#233;tiquette, il suffit de la rapporter dans ton code.
Une fois que tu as rempli une page, si tu doit faire une seconde page, il faut changer de page manuellement.
Puis tu termine ton impression. &#231;a aura pour effet d'envoyer l'impression &#224; l'imprimante.

voila un exemple de code :
' Configuration de l'imprimante
Printer.ScaleMode = vbMillimeters

'Impression d'une image avec
'  - PosX=position horizontale de l'image sur le papier (0 &#224; gauche)
'  - PosY=position verticale (0 en haut)
'  - DimX=dimension horizontale de l'image imprim&#233;e
'  - DimY=dimension verticale
Printer.PaintPicture TaPictureBox.Picture, PosX, PosY, DimX, DimY

'Eventuellement saut de page:
Printer.NewPage

'Fin de l'impression et envoie &#224; l'imprimante
Printer.EndDoc

cs_tigrou59 · Answer

Merci 
Je vais essayer cela
Bonne soir&#233;e

Creer des étiquettes (type AVERy) avec VB

5 réponses

Discussions similaires