| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教：绘图板打印及导出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63857) |
| -- 作者：feiyu988 -- 发布时间：2015/1/30 11:32:00 -- 请教：绘图板打印及导出 这个代码怎么修改才能对窗口的绘图板有效，使打印出的图形适合纸张，另外就是绘图板导出为图片（能选择保存位置）怎么实现 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()
|
| -- 作者：Bin -- 发布时间：2015/1/30 11:38:00 -- 参考http://www.foxtable.com/help/topics/1602.htm 搞不定就上例子
|