主题：条形码打印问题

Dim doc As New PrintDoc
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
Bar.Code = dr("_identify")
'MessageBox.Show(bar.code)
Bar.BarWidth = 0.4642
Bar.BarHeight = 3.08
Bar.QuietZoneWidth = 2

Bar.DisplayChecksum = False
Bar.DisplayStartStopChar = False
Bar.Font = New Font("楷体",7.5)
Bar.HumanReadableText = "ADM签样专用"
Bar.SaveImage("D:\xx.bmp")
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image= bar.GetImage
bar.DrawOnCanvas(rg.Graphics,0,0,1)
Doc.Body.Children.Add(rg)
Doc.Preview