以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印设置问题！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131166)
--  作者：pizzahe
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：2019/2/19 10:43:00
--  
打印改为横向。具体做个例子发过来测试
--  作者：pizzahe
--  发布时间：2019/2/19 13:22:00
--  打印不对的
改成横向，打印出来的也是横向了

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20190219132028.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2019/2/19 13:59:00
--  
那就是打印宽度超过可打印范围了。把打印的内容整体缩窄测试
--  作者：pizzahe
--  发布时间：2019/2/19 21:46:00
--  打印尺寸和边界
Height:       设置页面高度，单位为毫米
TopMargin:    上边距，单位为毫米
BottomMargin

如：Height = 140 ，那140 是否包含 TopMargin 和 BottomMargin  的尺寸？



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

如：with = 210 那 210是否包含 LeftMargin 和 RightMargin 的尺寸？
--  作者：有点蓝
--  发布时间：2019/2/19 22:02:00
--  
包含的。

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

实际上可能还要窄一点