禁止打印
你可能希望给客户提供一个试用版的系统,在客户购买正版之前,只能打印预览,而不能打印。
要实现这个功能很简单,只需给Preivew加上一个参数True即可,例如:
Dim
doc As
New PrintDoc
Dim
rt As
New prt.RenderText
rt.Text
= "Hello Foxtable"
doc.Body.Children.Add(rt)
doc.Preview(True)
加上True参数之后,打印预览窗口的保存和打印按钮将不可用。
窗口打印是通过专业报表实现的,所以同样可以实现只能预览不能打印的效果,例如:
Dim
doc As
PrintDoc = e.Form.GernatePrintDoc()
doc.Preview(True)