Ayuda con PrinterSetupDialog

[BuenaOnda]

hola...
amigos, alguien me podria decir como obtengo la direccion de la
impresora seleccionada en un PrinterSetupDialog, o conocen algun
componente que realice esto...

muchas gracias....

[BuenaOnda]

existe alguna funcion en windows que permita ralizar esto.. gracias ;)

[BuenaOnda]

existe algun componente que me entregue la direccion de la impresora, tal como el OpenDialog nos entrega la direccion del archivo...:confused:

[delphi.com.ar]

Cuando cambias de impresora con el PrinterSetupDialog, este cambia la impresora por defecto, y puedes averiguar cuál es la impresora actual utilizando el objeto/función Printer de la unit printers:

uses
Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
ADevice, ADriver, APort: PChar;
ADeviceMode: DWORD;
begin
if PrinterSetupDialog1.Execute then
begin
ADevice := StrAlloc(MAX_PATH);
ADriver := StrAlloc(MAX_PATH);
APort := StrAlloc(MAX_PATH);
try
Printer.GetPrinter(ADevice, ADriver, APort, ADeviceMode);
with Memo1.Lines do
begin
Add('Device: ' + string(ADevice));
Add('Driver: ' + string(ADriver));
Add('Port: ' + string(APort));
Add('DeviceMode: ' + IntToStr(ADeviceMode));
end;
finally
StrDispose(ADevice);
StrDispose(ADriver);
StrDispose(APort);
end;
end;
end;

Saludos!

[BuenaOnda]

muchas gracias... por tu ayuda :)