IF li_rtn = 1 THEN //返回值为1时,说明取出打印机信息
li_ArrayUp = UpperBound(ls_printer)
//取列表数组上限
IF li_ArrayUp >= 1 THEN
FOR li_step = 1 TO li_ArrayUp
//向下拉列表框中增加打印机,此条语句对于打印来说没有必要,只是将打印机显示出来。
//其中lb_print是一个下拉列表框控件
lb_print.additem ( ls_Printer[li_step] )
//设置当前打印机为默认打印机
PrintSetPrinter(ls_Printer[li_step])
//利用当前打印机进行数据打印
dw_1.print()
NEXT
ELSE