Impression d'etiquettes avec l'objet printer

Question

Existe t il un controle permettant d'être imprimé tout en gardant sa mise en forme. J'ai essayé le textbox le rich text box mais seulement la première ligne est à la bonne place les autres sont belle et bien en dessous mais ne prennent plus en compte la marge de gauche.

Exemple : 

       1ère ligne 
Lignes suivantes
lignes suivantes
...

Merci d'avance.

cs_PROGRAMMIX · Answer

Si tu veux imprimer plusieurs lignes en décallant la marge de gauche, il te faut systématiquement le dire à l'imprimante lors du changement de ligne.
Sinon, lorsque les lignes suivantes sont imprimées, celles-ci se mettent à gauche.

Donc:
Printer.ScaleMode=6    'Pour utiliser les millimètres
Printer.CurrentX=20     'Marche de 2 cm à gauche
Printer.Print "Ma première ligne"

Printer.CurrentX=20
Printer.Print "Ma deuxième ligne"
' et ainsi de suite...

Une alternative pourrait être d'utiliser une procédure pour ne pas toujours tout recopier

Sub Ecrire(Texte As String, PosX as Integer)
    Printer.CurrentX = PosX
    Printer.Print Texte
End Sub

Celle-ci s'utiliserait alors de la manière suivante:
Printer.ScaleMode = 6
Call Ecrire("Ma première ligne", 20)
Call Ecrire("Ma deuxième ligne", 20)
'... et ainsi de suite...

cs_PROGRAMMIX · Answer

Va également voir le tutoriel de J-M Rabilloud concernant l'impression sous VB sur le site de htttp://www.developpez.com/vbasic/index.htm.

C'est un fichier pdf de 10 pages.

XWinnieX · Answer

Merci mais j'ai déjà le pdf de JM Rabilloud et je voulais juste savoir si un tel contrôle éxistait.

Impression d'etiquettes avec l'objet printer

3 réponses

Discussions similaires