Discussion :

[lesultan2007]

Bonjour à tous,

Je dois développer un programme permettant d'imprimer des étiquettes en

vb.net. C'est un programme qui prend en paramètre une chaine de caractere

et qui l'imprime en fonction de la police code39.ttf. j'ai une imprimante

browser ql-650td et je sais pas comment m'y prendre malgré tout ce que j'ai

pu lire. Quelqu'un pourrait-il m'aider? me dire par quoi commencer?

Merci d'avance

[roster]

Bonsoir,
Tu peux déjà jeter un coup d'oeil sur ce code pour te faire une idée:

http://www.codeguru.com/vb/gen/vb_mi...cle.php/c11233

[lesultan2007]

Merci je vais essayer de comprendre ce code

[lesultan2007]

merci mais quelqu'un pourrait-il mieux m'expliquer j'arrive pas a comprendre. Moi je voudrais juste une fonction qui prend en paramètre un string que je génère et qui l'imprime sur une étiquette de code à barre.

Merci pour votre aide

[roster]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Imports System.Drawing

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim mot As String = Code128$("String à imprimer")
 
Dim police As New Font("Code 128", 18)
 
Private Sub WriteCode(ByVal e As System.Drawing.Printing.PrintPageEventArgs)
 
e.Graphics.DrawString(mot, police, Brushes.Black, 10, 10)
 
End Sub

C'est pour du code 128. En le modifiant légèrement, cela devrait déjà être un bon début.

[lesultan2007]

Merci pour ton aide. Mais comment dois je faire le lien avec l'imprimante?

[roster]

Regardes ici comment imprimer un dessin:

http://plasserre.developpez.com/v4-11.htm

Ton imprimante doit être l'imprimante par défaut, sinon utilises PrintDialog par exemple.

[lesultan2007]

Merci pour ton aide.Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Public Class WebForm1
    Inherits System.Web.UI.Page
 Private WithEvents p As System.Drawing.Printing.PrintDocument
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ss As String = CodeBar.TextPrint.code39(TextBox1.Text)
        'code39 est une methode de la librairie codebar qui genere un codebar39 et que j'appelle dans mon appli web à l'aide de sa dll
        Response.Write(ss)
        p.Print()
 
    End Sub
 
 
    Private Sub p_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles p.PrintPage
 
        Dim ss As String = CodeBar.TextPrint.code39(TextBox1.Text)
        Dim police As New Font("Code 3 de 9", 30)
        e.Graphics.DrawString(ss, police, Brushes.Black, 10, 10)
        'e.PageSettings.PrinterSettings.PrinterName = "Brother QL-650TD"
    End Sub
End Class

Mais je n'arrive toujours pas à imprimer. Pourtant mon imprimante Brother QL-650TD est bien définie comme imprimante par défaut

[EE]

la string doit etre encodé au format , je travaille sur 128 et ean 13 il ya des algorithmes... sinon tu imprimes des barres illisibles avec les lecteurs ( il faut une "barre" de départ et une "barre de fin")

Gloups ... j'avais pas vu que tu utilisais déja une librairie!!!


bon .. est ce que quelque chose sort de ton imprimante?
as tu crée ta page sus chrystal avec l'appel de ta fonction champ de parametre =codebarre(string)