Foxtable(狐表)用户栏目专家坐堂 → 连续打印


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

主题:连续打印

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


加好友 发短信
等级:幼狐 帖子:112 积分:1119 威望:0 精华:0 注册:2012/2/26 17:36:00
连续打印  发帖心情 Post By:2017/12/21 9:24:00 [只看该作者]

打印一个条码,我发现每打印一个之前就会往回退一些,再打印。可能是打印机的问题,往回会退的时候,会有些打印纸墨粘上去,造成识别困难。有一次调试的时候突然连续打印好张出来,后面的就不会有这个问题。
请问有什么办法可以设置连续打印好几张而不需要每打一张就往回退一下?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/21 9:28:00 [只看该作者]

你是怎么打印条码的?写代码生成还是说其它什么方式?

 

如果写代码贴出你写的代码。照抄这种能否正常? http://www.foxtable.com/webhelp/scr/2093.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
skyman1188
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1119 威望:0 精华:0 注册:2012/2/26 17:36:00
  发帖心情 Post By:2017/12/21 9:35:00 [只看该作者]

我是建立了一个Form窗口里面生成打印的,做了一个按键,点一下打印一张,代码如下
e.Form.Page.LeftMargin = 1.5 '设置左边距
e.Form.Page.RightMargin = 0 '设置右边距
e.Form.Page.TopMargin = 1.5 '设置上边距
e.Form.Page.BottomMargin = 0 '设置下边距
e.Form.Page.Width = 70 '纸张宽度为70毫米
e.Form.Page.Height = 40 '纸张高度为40毫米
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.PrinterName = "Godex G500"  '选择打印机
doc.Print()
我没有找到点一下连续打印多张的命令。


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/21 9:38:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
skyman1188
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1119 威望:0 精华:0 注册:2012/2/26 17:36:00
  发帖心情 Post By:2017/12/21 9:47:00 [只看该作者]

我不是想打印几个条码,是希望一张一个条码,一次连续打印几张出来。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/21 9:49:00 [只看该作者]

参考代码

 

Dim doc As New PrintDoc
For i As Integer = 1 To 5
    Dim rg As New prt.RenderGraphics
    Dim Bar As New BarCodeBuilder
    Bar.Symbology = Barpro.Symbology.Code39
    bar.Code = "12345678"
    rg = new prt.RenderGraphics
    bar.DrawOnCanvas(rg.Graphics,0,0,1)
    Doc.Body.Children.Add(rg)
Next
Doc.Preview()


 回到顶部