老师，早上好，设计一个窗口用于打印，绑定两个表，预览时空白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()
上面的代码是论坛老师给的，其他地方可以使用，只是都是绑定表得控件，是什么原因？
加好友 
发短信
Post By：2016/11/17 9:46:00 [只看该作者]
