Returns the name of all installed Windows printer.
Rhino.PrinterNames ()
None.
Array |
An array of Windows printer names if successful. |
Null |
如果执行不成功或出错，返回空值。 |
Dim arrPrinters, strPrinter
arrPrinters = Rhino.PrinterNames
If IsArray(arrPrinters) Then
strPrinter = Rhino.CurrentPrinter
strPrinter = Rhino.ListBox(arrPrinters, "Current:" & strPrinter, "Set Current Printer")
If Not IsNull(strPrinter) Then
Rhino.CurrentPrinter strPrinter
End If
End If