Problemas con OpenPrinter
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;
|