0

我正在尝试打印条形码标签,但是当标签从打印机出来时,条形码打印在顶部(需要在底部),我如何控制条形码的坐标?

my code is

Private Sub printdc128_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
    Dim bc128 As New BarcodeLib.Barcode.Linear()
    bc128.Data = TextBox2.Text
    bc128.BarHeight = 60.0
    bc128.BarWidth = 3.0
    bc128.Resolution = 124
    bc128.drawBarcode(e.Graphics)
End Sub
4

1 回答 1

0
Private Sub printdc128_PrintPage(ByVal sender As System.Object, ByVal e As 
System.Drawing.Printing.PrintPageEventArgs)

    Dim img As System.Drawing.Image
    Dim bc128 As New BarcodeLib.Barcode.Linear()
    ' Insert text
    e.Graphics.DrawString(TextBox1.Text, New System.Drawing.Font("Arial", 16.0F), System.Drawing.Brushes.Black, New System.Drawing.PointF(10.0F, 10.0F))

    ' Select Code Type
    bc128.Type = BarcodeLib.Barcode.BarcodeType.CODE128
    ' Select data source
    bc128.Data = TextBox2.Text
    ' Choose Unit of Measures
    bc128.UOM = BarcodeLib.Barcode.UnitOfMeasure.PIXEL
    ' Barcode Height and Width
    bc128.BarHeight = 40.0
    bc128.BarWidth = 2.0
    ' Convert text to stream
    Dim bc128stream As New MemoryStream()

    bc128.drawBarcode(bc128stream)
    ' Convert Stream to image
    img = Drawing.Image.FromStream(bc128stream)
    ' Draw the image and Choose the coordinates(X,Y)
    e.Graphics.DrawImage(img, New Drawing.PointF(10, 90))

End Sub
于 2012-11-28T13:33:10.120 回答