以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  条形码打印问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154609)
--  作者：aidimeng
--  发布时间：2020/9/20 10:13:00
--  条形码打印问题

我用54mm* 30mm 大小的不干胶纸打印条形码，怎么调试都不能打印到中间，怎么处理啊

代码如下


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

发现一个问题 就是 每次 打印预览 Doc.Preview 调用的纸型都不一样，怎么样控制下打印呢？ 调用的纸型， 左右边距等

[此贴子已经被作者于2020/9/20 10:49:50编辑过]
--  作者：有点蓝
--  发布时间：2020/9/20 20:45:00
--  
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
……