Ahora la seleccion de impresora no funciona

Taribus · #1 10-10-2003

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.

delphi.com.ar · #2 10-10-2003

Si utilizas QuickReports, en lugar de usar un TPrintDialog, te recomiendo hacer lo siguiente:

Código:

begin
  QuickRep1.Tag := 0;
  QuickRep1.PrinterSetup;
  if QuickRep1.Tag = 0 Then
    QuickRep1.Print;
end;

Este "hermoso" código es lo que nos tiene acostumbrado QuickReport

Saludos!

Taribus · #3 11-10-2003

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

Mil gracias.

Taribus · #4 14-10-2003

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

¡¡¡ GENIAL !!!

muchas graciasssssss.

Manuel .

marcoszorrilla · #5 09-07-2007

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.