怎样设置windows下的缺省打印机

[Fancy_Free]

如题

[hwh88888]

//STEP 1: Get the current default printer name.
string ls_default
RegistryGet("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device", ls_default)
sle_def.text = ls_default

//Step 2: Set a new default printer name.
int li_rtn
li_rtn = RegistrySet("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", &
"Device", sle_new.text)
if li_rtn = 1 then
Messagebox("Setting new printer name", "Successful")
else
Messagebox("Setting new printer name", "Failed")
end if

[flappySoft]

直接在windows的控制面板里面改啊

[pbtech]

呵呵,楼上的方法可以

[mittee]

这方面的dll很多哦

[yzh963]

自定义函数f_get_printer 返回值：boolean
参数：dropdownlistbox 参数名：ddlb_printer
函数体
string ls_printer[] //定义一个字符串型数组

integer li_rtn,li_ArrayUp,li_step
li_rtn = RegistryKeys("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Print\Printers", ls_printer) //从注册表中取其列表

IF li_rtn = 1 THEN
li_ArrayUp = UpperBound(ls_printer)
//取列表数组上限
IF li_ArrayUp >= 1 THEN
FOR li_step = 1 to li_ArrayUp
ddlb_printer.additem ( ls_Printer[li_step] )
//向下拉列表框中增加打印机
NEXT
ELSE
return false
END IF
ELSE
return false
END IF
return true

//使用函数在下拉列表框的constructor事件里写代码
boolean lb_PrinterExists

lb_PrinterExists = f_get_printer(this)
//向下拉列中增加打印机
IF NOT lb_PrinterExists THEN
messagebox ("提示！","尚未安装打印机！")

END IF
//可用printsetup函数设置打印机

[datafrog]

as_DefaultPrinter 将要设置的打印机名

integer li_RetVal = 1
Environment lenv_Env
string ls_Buffer

// make changes
if GetEnvironment(lenv_Env) = 1 then
choose case lenv_Env.OSType
case WindowsNT!
// check if given printer is valid

if RegistryGet("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", &
as_DefaultPrinter, ls_Buffer) <> 1 then return -2
// check for needed changes
if (as_DefaultPrinter + "," + ls_Buffer) = of_GetDefaultPrinter() then return 0
// set it in registry
return RegistrySet("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", &
"Device", as_DefaultPrinter + "," + ls_Buffer)
case Windows!
// check if given printer is valid
ls_Buffer = ProfileString(of_GetWinINI(), "Devices", as_DefaultPrinter, "error")
if ls_Buffer = "error" then return -2
// check for needed changes
if (as_DefaultPrinter + "," + ls_Buffer) = of_GetDefaultPrinter() then return 0
// set it in INI file
if SetProfileString(of_GetWinINI(), "Windows", "Device", as_DefaultPrinter + "," + ls_Buffer) <> 1 then
return -1
end if
end choose
else
// error geting environment
return -1
end if

[thelazyman]

不错，直接在控制面板的打印机下设置默认的打印机即可
当然也可以在pb下用printsetup（）函数让用户选择打印机。