Foxtable(狐表)用户栏目专家坐堂 → 条形码打印问题


  共有1843人关注过本帖树形打印复制链接

主题:条形码打印问题

帅哥哟,离线,有人找我吗?
aidimeng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:739 积分:7211 威望:0 精华:0 注册:2015/9/14 14:26:00
条形码打印问题  发帖心情 Post By: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编辑过]

 回到顶部