- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 打印设置 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123446)
-- 发布时间：2018/8/15 9:01:00
-- 打印设置
点击BUTTON控件打印，前判断dropbox内数值判断打印页数代码如何写，请指教，谢谢大家！
-- 发布时间：2018/8/15 9:21:00
--
读取控件的值？
Dim s = e.form.controls("textbox1").text
msgbox(s)
-- 发布时间：2018/8/15 10:45:00
--
如附件，两个对话框关联打印。
此主题相关图片如下：新建位图图像.bmp
-- 发布时间：2018/8/15 11:04:00
--
参考
Dim doc As New PrintDoc \'定义一个报表
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text = "Hello Foxtable" \'设置文本对象的内容
doc.Body.Children.Add(rt) \'将文本对象加入到报表
Dim ps As new System.Drawing.Printing.PrinterSettings
ps.Copies = e.form.controls("textbox1").text \'设置份数\'
doc.Print(ps) \'打印
-- 发布时间：2018/8/15 11:31:00
--
谢谢！
-- 发布时间：2018/8/15 12:33:00
--
刚才的代码是打印字段，如果我要打印整个窗口的内容代码是什么呀？帮忙处理一下，谢谢
-- 发布时间：2018/8/15 14:26:00
--
Dim doc As PrintDoc = e.Form.GernatePrintDoc
Dim ps As new System.Drawing.Printing.PrinterSettings
ps.Copies = e.form.controls("textbox1").text \'设置份数\'
doc.Print(ps) \'打印
-- 发布时间：2018/8/16 12:02:00
--
已经搞好，谢谢！！！