parte 2
ls_default=mid(ls_default,1,pos(ls_default,",") -1) //impresora instalada como predeterminada
if upper(ls_default) = upper(as_impresora) then
//si ya esta como predeterminada retorna
return
end if
//Obtiene los valores de la impresora a poner
RegistryGet("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices", as_impresora, ls_valores)
// Ubica en el Regedit la nueva impresora default
nret = RegistrySet("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device", as_impresora+","+ls_valores)
if nret <> 1 then
Messagebox("Error...", "No se pudo cambiar la impresora predeterminada",StopSign!)
return
end if
//Devuelve el nombre de la impresora que estaba predeterminada
messagebox("",ls_default)
end if
si tienes algún problema me escribes para enviarte por correo como lo realice