Foxtable(狐表)用户栏目专家坐堂 → 打印设置问题!


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

主题:打印设置问题!

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


加好友 发短信
等级:童狐 帖子:287 积分:2927 威望:0 精华:0 注册:2015/12/21 13:35:00
打印设置问题!  发帖心情 Post By:2019/2/19 10:14:00 [只看该作者]

请教下,我这代码设置有问题吗?为什么出来的效果是这样的!


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190219100705.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190219100723.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:效果.png
图片点击可在新窗口打开查看

'自动打印费用单据
Dim doc As New PrintDoc '定义一个报表

'纸张设置

With Doc

.PageSetting.Width = CDec(Functions.Execute("printInfo","Width",210))
.PageSetting.Height = CDec( Functions.Execute("printInfo","Height",297))
.PageSetting.LeftMargin = CDec(Functions.Execute("printInfo","LeftMargin",10))
.PageSetting.RightMargin = CDec( Functions.Execute("printInfo","RightMargin",10))
.PageSetting.TopMargin = CDec( Functions.Execute("printInfo","TopMargin",10))
.PageSetting.BottomMargin = CDec(Functions.Execute("printInfo","BottomMargin",10))
.PageSetting.Landscape = Functions.Execute("printInfo","Landscape",False)
.AutoRotate = False

End With



[此贴子已经被作者于2019/2/19 10:36:56编辑过]

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


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

打印改为横向。具体做个例子发过来测试

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


加好友 发短信
等级:童狐 帖子:287 积分:2927 威望:0 精华:0 注册:2015/12/21 13:35:00
打印不对的  发帖心情 Post By:2019/2/19 13:22:00 [只看该作者]

改成横向,打印出来的也是横向了

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


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


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

那就是打印宽度超过可打印范围了。把打印的内容整体缩窄测试

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


加好友 发短信
等级:童狐 帖子:287 积分:2927 威望:0 精华:0 注册:2015/12/21 13:35:00
打印尺寸和边界  发帖心情 Post By:2019/2/19 21:46:00 [只看该作者]

Height:       设置页面高度,单位为毫米
TopMargin:    上边距,单位为毫米
BottomMargin

如:Height = 140 ,那140 是否包含 TopMargin 和 BottomMargin  的尺寸?



Width:        页面宽度,单位为毫米
LeftMargin:   左边距,单位为毫米
RightMargin:  右边距,单位为毫米

如:with = 210 那 210是否包含 LeftMargin 和 RightMargin 的尺寸?


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


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

包含的。

理论上可打印区域宽度 = 纸张宽度 - 左右边距

实际上可能还要窄一点

 回到顶部