主题：打印设置

点击BUTTON控件打印，前判断dropbox内数值判断打印页数代码如何写，请指教，谢谢大家！

读取控件的值？

 

Dim s = e.form.controls("textbox1").text

msgbox(s)

如附件，两个对话框关联打印。
此主题相关图片如下：新建位图图像.bmp

参考

 

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)     '打印

谢谢！

刚才的代码是打印字段，如果我要打印整个窗口的内容代码是什么呀？帮忙处理一下，谢谢

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)     '打印

已经搞好，谢谢！！！