| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]窗体打印纸张第一次预览页面尺寸的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24405) |
| -- 作者：hiliuyong -- 发布时间：2012/10/13 1:09:00 -- [求助]窗体打印纸张第一次预览页面尺寸的问题 Dim doc As PrintDoc = e.Form.GernatePrintDoc() e.Form.Page.Width = 241 \'纸张宽度 e.Form.Page.Height = 139.7 \'纸张高度 e.Form.Page.LeftMargin = 0 \'设置左边距 e.Form.Page.RightMargin = 0 \'设置右边距 e.Form.Page.TopMargin = 0 \'设置上边距 e.Form.Page.BottomMargin = 0 \'设置下边距 doc.PageSetting.Landscape = True \'横向打印 doc.Preview() 以上代码，在第一次执行预览的时候，如果默认纸张是A4，则第一次预览还是A4大小，但再次预览的话，就已经变成宽241，高139.7了。 这是什么问题，请指点！
|
| -- 作者：lin_hailun -- 发布时间：2012/10/13 10:31:00 -- 楼主，注意语句的顺序，先调整窗口，在设置成打印对象。 \'Dim doc As PrintDoc = e.Form.GernatePrintDoc() e.Form.Page.Width = 241 \'纸张宽度 e.Form.Page.Height = 139.7 \'纸张高度 e.Form.Page.LeftMargin = 0 \'设置左边距 e.Form.Page.RightMargin = 0 \'设置右边距 e.Form.Page.TopMargin = 0 \'设置上边距 e.Form.Page.BottomMargin = 0 \'设置下边距 Dim doc As PrintDoc = e.Form.GernatePrintDoc() doc.PageSetting.Landscape = True \'横向打印 doc.Preview() |
| -- 作者：hiliuyong -- 发布时间：2012/10/13 12:39:00 -- 谢谢你 |