1、指定打印纸张大小Dim doc As New PrintDoc
doc.PageSetting.Width = 54
doc.PageSetting.Height = 30
Doc.PageSetting.LeftMargin = 0 '设置左边距
Doc.PageSetting.RightMargin = 0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
Dim rg As New prt.RenderGraphics
rg.Style.Spacing.ToP = 10
Dim Bar As New BarCodeBuilder
……