这个代码怎么修改才能对窗口的绘图板有效，使打印出的图形适合纸张，另外就是绘图板导出为图片（能选择保存位置）怎么实现
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim rt As New prt.Rendertext '定义一个文本对象
Doc.PageSetting.LeftMargin = 10 '设置左边距
Doc.PageSetting.RightMargin = 10 '设置右边距
Doc.PageSetting.TopMargin = 20 '设置上边距
Doc.PageSetting.BottomMargin = 20 '设置下边距
rt.Width = "Parent.Width" '对象宽度等于页面宽度
rt.Height = "Parent.Height" '对象高度等于页面高度
doc.Body.Children.Add(rt) '将文本对象加入到报表
doc.PageSetting.Landscape = True '横向打印
doc.Preview()
加好友 
发短信
Post By：2015/1/30 11:32:00 [显示全部帖子]
