禁止打印

你可能希望给客户提供一个试用版的系统，在客户购买正版之前，只能打印预览，而不能打印。

要实现这个功能很简单，只需给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)