Dim p As WinForm.Panel = e.Form.Controls("pnl_body")
e.Form.Page.PaperKind = 9
e.Form.Page.LeftMargin = 3 '设置左边距
e.Form.Page.RightMargin = 5 '设置右边距
e.Form.Page.TopMargin = 2 '设置上边距
e.Form.Page.BottomMargin = 1 '设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc(p)
Dim aa As String = ProjectPath & "导出文件\设计版单\" & Date.Today & Rand.NextString(5) & ".jpg"
doc.SaveImage(aa,300)
保存成图片却是一片空白,有办法解决吗?(保存成PDF没有问题)
预览有东西吗?
Dim doc As PrintDoc = e.Form.GernatePrintDoc(p)
doc.Preview
此主题相关图片如下:snipaste_2023-12-06_11-10-31.png
应该是跟DPI有关系,我设置比默认150大了以后就会出现这两种情况,要么全是空白,要么报错参数错误,老师,这有什么办法吗?150的DPI实在有点低
有别的方式保存图片吗?在panel控件里我有大量的文字和图片控件,估计跟内容太多有关系,我在普通文字的窗口也没有这个问题
专业报表只有这种用法。
或者试试这种:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=147480