看不出什么问题，使用简单的代码，打印2行试试，如果有问题应该不是代码的原因，如果没有问题在逐渐添加其他代码测试，看是什么代码影响的
Dim doc As New PrintDoc
doc.PageSetting.Width = 50 '纸张宽度为200毫米
doc.PageSetting.Height = 30 '纸张高度为170毫米
DoC.PageSetting.LeftMargin = 1 '设置左侧边距为2毫米
DoC.PageSetting.RightMargin = 1 '设置右侧边距为2毫米
DoC.PageSetting.TopMargin = 1 '设置顶部边距为2毫米
Doc.PageSetting.BottomMargin = 1 '底部边距未1毫米
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code128
bar.Code = "12345678"
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
Doc.Body.Children.Add(rg)
bar.Code = "6666666666"
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
rg.Style.Spacing.All = 3
Doc.Body.Children.Add(rg)
Doc.PrinterName =" ZDesigner GK888t" '指定打印机
Doc.Print ()
加好友 
发短信
Post By：2021/9/12 21:09:00 [显示全部帖子]
