- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 打印设置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82730)
-- 发布时间：2016/3/23 17:32:00
-- 打印设置
此主题相关图片如下：qq截图20160323172854.png
Dim doc As PrintDoc = e.Form.GernatePrintDoc() \'定义一个报表
doc.PageSetting.PaperKind = 9 \'
Doc.PageSetting.LeftMargin = 0 \'设置左边距
Doc.PageSetting.RightMargin = 0 \'设置右边距
Doc.PageSetting.TopMargin = 0 \'设置上边距
Doc.PageSetting.BottomMargin = 0 \'设置下边距
doc.Preview() \'预览
如图预览出来的效果，我想顶边打印，边距不要空这么多，请问老师如何写代码
-- 发布时间：2016/3/23 17:38:00
--
设计窗口的时候，调整控件位置，往左上角移动。
-- 发布时间：2016/3/23 17:43:00
--
老师已经顶到头了
-- 发布时间：2016/3/23 17:45:00
--
此主题相关图片如下：qq截图20160323174342.png
-- 发布时间：2016/3/23 17:49:00
--
这样写
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.Preview()
-- 发布时间：2016/3/23 17:52:00
--
好了，谢谢老师