impression code barre

Version imprimable

28/05/2009, 02h10
lesultan2007

impression code barre

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
28/05/2009, 02h23
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
28/05/2009, 11h15
lesultan2007

Merci je vais essayer de comprendre ce code
28/05/2009, 14h23
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

Code:

Imports System.Drawing

Code:

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.

28/05/2009, 15h44
lesultan2007

Merci pour ton aide. Mais comment dois je faire le lien avec l'imprimante?
28/05/2009, 16h06
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.

Merci pour ton aide.Voici mon code

Code:

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

18/06/2009, 07h52
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)