- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 专业报表打印请教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85853)
-- 发布时间：2016/6/3 18:25:00
-- 专业报表打印请教
用这段代码打印，打印机没反应，也没提示错误。请教一下这段代码是否行得通？
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表
Dim diag As New System.Windows.Forms.PrintDialog \'打印
diag.Document=doc.Document
diag.ShowDialog()
-- 发布时间：2016/6/3 18:46:00
--
不行，要这样
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49637&authorid=0&page=0&star=1
-- 发布时间：2016/6/3 19:46:00
--
这些能否设置呢？
此主题相关图片如下：qq截图20160603195056.png
[此贴子已经被作者于2016/6/3 19:46:20编辑过]
-- 发布时间：2016/6/4 8:56:00
--
https://msdn.microsoft.com/zh-cn/library/system.drawing.printing.printersettings_members(v=vs.85).aspx
-- 发布时间：2016/6/5 10:44:00
--
得到这个对象，然后参考4楼的帮助文档设置各个属性
Dim pset = Doc.PageSetting.ToPageSettings.PrinterSettings