Ahora la seleccion de impresora no funciona
 

Hola amigos del Foro, tengo el siguiente problema:

Tengo una aplicacion instalada que para elegir la impresora, a la hora de imprimir, la selecciona con un PrintDialog, y siempre ha funcionado bien.

Ahora hemos instalado otra impresora, esta en red, dentro del Hub de la red local de la empresa y localizada con direccion IP, y el problema es que aunque seleccionemos la impresora que sea, simpre imprime con la impresora predeterminada, no hace caso del PrintDialog. Con otras aplicaciones, no realizadas por mi, no sucede esto.

Tengo instalado lo siguiente:

Impresora Paralelo : CANON LBP-1260.
Impresora Red : CANON CP-660, laser color.
Sistema Operativo : Windows Millenium.

Alquien me puede decir como puedo solucionar el asunto.

Gracias anticipadas.

Manuel.

Si utilizas QuickReports, en lugar de usar un TPrintDialog, te recomiendo hacer lo siguiente:Este "hermoso" código es lo que nos tiene acostumbrado QuickReport

Saludos!

Gracias Delphi.com.ar sobre todo por contestar, lo probare y luego dire si me funciona o no.

Mil gracias.

Perdon ante todo por tardar en probar la solucion que me indico Delphi.com.ar, pero el resultado es ....

¡¡¡ GENIAL !!!

muchas graciasssssss.

Manuel .:)

Otra solución:

Código Delphi [-]
En el OnPreview, asignar el siguiente código: 

var
  PrinterSettings: TQuickRepPrinterSettings;
with TFCustomPreview.Create(Self) do
begin
  QRPreview1.QRPrinter := QuickRep1.QRPrinter;
  PrinterSettings := QuickRep1.PrinterSettings;
  Show;
end;


y luego en el click de tu botón de imprimir haces lo siguiente: 

if  PrintSetupDialog1.Execute Then
begin
  PrinterSettings.PrinterIndex:= Printer.PrinterIndex;
  QRPreview1.QRPrinter.Print;
end;

Un Saludo.