其他设置
GernatePrintDoc生成一个PrintDoc对象,以后如果你学习了专业报表,就会知道PrintDoc其实就是一个专业报表。
利用PrintDoc的一些属性,我们可以进行一些其他设置.
指定打印机
如果安装了多个打印机,且需要在非默认打印机上打印,可以设置PrintDoc的PrinterName属性,在指定的打印机上打印。
例如
Dim
doc As
PrintDoc =
e.Form.GernatePrintDoc()
Doc.PrinterName = "HP LaserJet
6L"
doc.Print()
可以用全局变量InstalledPrinters获得所有已经安装的打印机的名称。
禁止自动旋转
打印票据的时候,系统默认会自动根据实际纸张的大小,判断是否需要旋转打印内容,以便更好地配合纸张。
如果不需要自动旋转打印内容,可以将AutoRotate属性设为False。
例如:
e.Form.Page.Width =
150
e.Form.Page.Height = 80
Dim
doc As
PrintDoc =
e.Form.GernatePrintDoc()
doc.AutoRotate =
False '禁止自动旋转打印内容
doc.Print()
你可以删除下面这一行代码,重新打印一张,看看结果有什么不同:
doc.AutoRotate = False '禁止自动旋转打印内容