Блог

Как я могу удалить текст снизу штрих-кода, сгенерированного с помощью Zxing (Vb.net)

Сгенерировать Штрих-код:

 Sub Barcode()
        Dim writer As New BarcodeWriter
        writer.Format = BarcodeFormat.CODE_128
        PictureBox1.Image = writer.Write(Fullcode.Text)
    End Sub
 

Добавить в печать:

 Dim rect As Rectangle = New Rectangle(New Point(10, 300), PictureBox1.Size)
    e.Graphics.DrawImage(PictureBox1.Image, rect)
 

Результат печати: