// Set a new default printer name.
//ls_print是要设置的打印机名字
ls_new = ls_print
li_rtn = RegistrySet("HKEY_LOCAL_MACHINE\Config\0001\System\CurrentControlSet\Control\Print\Printers", "default",ls_new)
if li_rtn <> 1 then
Messagebox("提示", "打印机设置失败!")
return 0
end if