[djelloul]

شكرا لك
لكني هذا ما قمت به وزيادة ولكن عند الطباعة تظهر الملصقات بدقة رديئة جدا لا يستطيع قارئ الباركود قرائتها

كود :

 Dim Generator As New MessagingToolkit.Barcode.BarcodeEncoder
       'Dim br As String = txt_N_Lot.Text & txtCBR.Text
       Generator.IncludeLabel = True
       Generator.CustomLabel = txt_N_Lot.Text & " " & txtCBR.Text
       Generator.Height = 50
       Generator.Margin = 0
       Generator.MarginSize = 0
       Generator.RotateFlipType = RotateFlipType.RotateNoneFlipNone
       Generator.LabelPosition = MessagingToolkit.Barcode.LabelPositions.BottomCenter
       Generator.LabelFont = New Font("Arial", 9.9F, Drawing.FontStyle.Regular)
       Generator.Alignment = MessagingToolkit.Barcode.AlignmentPositions.Left

       'HorizontalResolution = HorizontalResolution(90)



       'Generator.ProcessTilde = True

       'Barcode Size Related Settings

       'barcode.Resolution = 96


       'PictureBox1.Image = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code39, TextBox1.Text))
       PicBarCode.BackgroundImage = New Bitmap(Generator.Encode(MessagingToolkit.Barcode.BarcodeFormat.Code128, txt_N_Lot.Text & " " & txtCBR.Text))