Problemas con OpenPrinter

[MarioATamborini]

Hola a todos... estoy haciendo una funcion que que me indique que impresoras
locales o de red estan disponibles para imprimir. Sobre Windows 200 Profesional.

Cuando la utilizo como Administrador, funciona bien. El problema se me plantea cuando quiero hacerlo desde una estacion de trabajo no estando logueado como Administrador. Me indica que no se puede abrir la impresora.

Gracias por adelantado

Este es el codigo:

Var
Defaults: TPrinterDefautls;
Cabecera: THandle;
Impresora: String;
begin
Impresora := '\\MAQUINA01\HP 1300';

// tambien probe con PRINTER_ACCESS_USE y PRINTER_ALL_ACCESS

Defaults.DesiredAccess := PRINTER_ACCESS_ADMINISTER;
Defaults.pDataType := Nil;
Defaults.pDevMode := Nil;

if OpenPrinter(PChar(Impresora), Cabecera, @Defaults) then
ShowMessage('Disponible')
else
ShowMessage('NO Disponible');
end;

[Gydba]

Hola,

Me suena a un problema de permisos. Podrías habilitar el acceso a impresoras para el usuario Guest (invitado) y ver que pasa al respecto.

la verdad que mucho más que esto no se me ocurre a esta hora de la mañana :)

Saludos!