主题：[求助]

有一个打印条码的按钮，里面的条码如下：希望打印的位置如图中红色部分所示。纸张大小为70*20MM，请问如何实现？

Dim doc As New PrintDoc

Dim rg As New prt.RenderGraphics

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.Code93

Dim r As Row = Tables("生产入库明细表").Current

    bar.Code = r("箱号")

rg = new prt.RenderGraphics

bar.DrawOnCanvas(rg.Graphics,0,0,1)

Doc.Body.Children.Add(rg)

Doc.Preview()

此主题相关图片如下：qq截图20141122140620.png