Problème lecture code à barre
Bonjour à tous
j'ai créé un code qui me permet de générer un code à barre et il marche très bien:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| Imports System.Drawing
Imports System.Drawing.Printing
Public Class BarreCode
Private lclFont As Font
Private TextToPrint As String
Public Function Code39(ByVal InputValue As String) As String
Dim OutData As String = ""
InputValue = InputValue.Replace(" ", "=")
OutData = "!" & InputValue & "!"
Return OutData
End Function
Public Sub PrintBarCodeV(ByVal TextFont As String, ByVal EncodedText As String, ByVal TextFontSize As Single)
lclFont = New Font(TextFont, TextFontSize)
TextToPrint = EncodedText
Dim PrintDoc As PrintDocument = New PrintDocument()
AddHandler PrintDoc.PrintPage, AddressOf PrintDocHandler
PrintDoc.Print()
Return
End Sub
Private Sub PrintDocHandler(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
Dim yPos As Single = 100
Dim leftMargin As Single = ev.MarginBounds.Left
Dim rightMargin As Single = ev.MarginBounds.Right
Dim topMargin As Single = ev.MarginBounds.Top
yPos = yPos + lclFont.GetHeight(ev.Graphics)
ev.Graphics.DrawString(TextToPrint, lclFont, Brushes.Black, 38, 15, New StringFormat())
End Sub
End Class |
Code:
1
2
3
4
5
| Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim EncodedText As String
EncodedText = bar.Code39(Me.TextBox1.Text)
TextBox1.Text = EncodedText
end sub |
mon problème et quand j'imprime le code et j'essaye de le lire via le lecteur code à barre (USB)
au lieu de m'afficher 123456 il m'affiche:
&é"'(-
comment je peux régler ce problème
Merci d'avance
