Foxtable(狐表)用户栏目专家坐堂 → [求助]打印出现空白


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

主题:[求助]打印出现空白

美女呀,离线,留言给我吧!
rophy0952
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2021/9/8 15:32:00 [只看该作者]

老师,现在可以打印了,但是没有按照窗口控件的数量打印,只能打印1张,请问是我的代码不对吗?

Doc.PageSetting.ToPageSettings.PrinterSettings.Copies = Forms("特殊箭头").Controls("打印数量").value


 回到顶部
帅哥,在线噢!
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107807 积分:548386 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/8 15:39:00 [只看该作者]

这种底层的用法我不清楚。

换种方式,循环打印6次
for  i as integer = 1 to Forms("特殊箭头").Controls("打印数量").value
原来的打印代码
next

 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2021/9/8 18:24:00 [只看该作者]

刚才试过,这样打印的话,打印机要重新定位纸张,速度很慢,不能连续打印出来

 


 回到顶部
帅哥,在线噢!
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107807 积分:548386 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/9 9:00:00 [只看该作者]

试试

……
Dim ps As System.Drawing.Printing.PrinterSettings = Doc.PageSetting.ToPageSettings.PrinterSettings
ps.Copies = 2   '设置份数'
doc.Print(ps)     '打印

 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2021/9/9 11:09:00 [只看该作者]

这个方法可以解决了,谢谢老师!图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2021/9/9 12:10:00 [只看该作者]

老师,又出了新的问题,现在可以按打印数量打印了,但同时又出了相同数量的空白,请问这种情况是什么原因造成的呢?如图

 


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20210909120917.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107807 积分:548386 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/9 13:56:00 [只看该作者]

这个我也不清楚,是不是打印机走纸的设置问题

不行就使用12楼的方式循环打印吧

 回到顶部
总数 17 上一页 1 2