FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; |
|
|
|