Ver Mensaje Individual
  #3  
Antiguo 27-01-2012
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Reputación: 19
olbeup Va camino a la fama
He realizado las prueba de captura de impresora en red y funciona correctamente cuando se le pasa el usuario y la contraseña:
Código Delphi [-]
...
var
  NetResource: TNetResource;
begin
  NetResource.dwType := RESOURCETYPE_PRINT;
  NetResource.lpLocalName := 'LPT5:';
  NetResource.lpRemoteName := '\\SERVIDOR\PDFCreator';
  NetResource.lpProvider := '';
  WNetAddConnection2(
    NetResource
    ,'1234'
    ,'Presupuestos'
    ,CONNECT_UPDATE_PROFILE);

Y para desconectar la impresora capturada:
Código Delphi [-]
WNetCancelConnection2('LPT5:', 1, TRUE);
Un saludo.
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Responder Con Cita