Foxtable(狐表)用户栏目专家坐堂 → 窗口打印页面设置的问题


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

主题:窗口打印页面设置的问题

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


加好友 发短信
等级:二尾狐 帖子:515 积分:5045 威望:0 精华:0 注册:2017/9/1 23:28:00
窗口打印页面设置的问题  发帖心情 Post By:2021/3/1 3:25:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:20210301031558.jpg
图片点击可在新窗口打开查看
我按教程设计了一个窗口打印的程序,因为是那种针式打印机的连续纸,所以我把纸设置为按纸张标准的240X140标准,但是打印的时候发现一些奇怪的问题
Dim x As Integer =Forms("标签打印").Controls("NCB1").VALUE
For i As Integer = 1 To  X 
forms("打印").show
forms("打印").Page.LeftMargin = 0
forms("打印").Page.TopMargin = 3
Dim doc As PrintDoc = Forms("打印").GernatePrintDoc()
doc.PageSetting.Width = 240 '纸张宽度为240毫米
doc.PageSetting.Height = 140 '纸张高度为140毫米
  doc.Print()
Next
forms("打印").close
图片点击可在新窗口打开查看此主题相关图片如下:111.jpg
图片点击可在新窗口打开查看

通过上面的图可以看到,140的高度下方的余量是非常大的,但是就是不会打印,设置高度为150就正常了!不知道要怎么解决?
请老师指点下!谢谢!

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


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

1、把控件往上挪
2、把下边距改小一点:
.Form.Page.BottomMargin = 0 '设置下边距

 回到顶部