以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于窗口打印 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92955) |
-- 作者:lk15502 -- 发布时间:2016/11/17 9:46:00 -- 关于窗口打印 老师,早上好,设计一个窗口用于打印,绑定两个表,预览时空白 Dim d1 As PrintDoc = e.Form.GernatePrintDoc() Dim Doc As new PrintDoc For Each c As object In d1.Body.Children Doc.Body.Children.Add(c.clone) Next Dim ra As new prt.RenderArea For Each c As object In d1.body.Children ra.Children.add(c.clone) Next ra.x = 0 ra.Y = 140 \'窗口打印的高度 Doc.body.Children.Add(ra) Doc.PageSetting.LeftMargin = 0 \'设置左边距 Doc.PageSetting.RightMargin = 0 \'设置右边距 Doc.PageSetting.TopMargin = 0 \'设置上边距 Doc.PageSetting.BottomMargin = 0 \'设置下边距 Doc.Preview() 上面的代码是论坛老师给的,其他地方可以使用,只是都是绑定表得控件,是什么原因?
|
-- 作者:有点青 -- 发布时间:2016/11/17 9:57:00 -- 你的所有控件,不能放在容器里面,不然不能打印。 |
-- 作者:lk15502 -- 发布时间:2016/11/17 10:24:00 -- 是这样的,谢谢! |