请教：绘图板打印及导出 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这个代码怎么修改才能对窗口的绘图板有效，使打印出的图形适合纸张，另外就是绘图板导出为图片（能选择保存位置）怎么实现

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()

主题：请教：绘图板打印及导出