Listar impresoras en un combobox para configurar un reporte de quickreport

[feliz-58]

Hola, quiero listar las impresoras en un combobox y que luego pasarle la impresora que seleccione al Quickreport antes de imprimir.

Gracias de antemano.
Uso Delphi 10.3

Busque en el hilo, y vi códigos que no me funcionan, por eso creo el hilo.

[ecfisa]

Hola.

Para cargar las impresoras en un ComboBox:

Código Delphi [-]
uses Printers;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items := Printer.Printers;
  ComboBox1.ItemIndex := 0;
  ...
end;

Para indicarle a QuickReport la impresora seleccionada, revisa el mensaje #8 de este enlace: ¿como Imprimir a varias impresoras'?

Saludos

[feliz-58]

❤️ Muchas gracias

[feliz-58]

Empezado por ecfisa

Hola.

Para cargar las impresoras en un ComboBox:

Código Delphi [-]
uses Printers;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items := Printer.Printers;
  ComboBox1.ItemIndex := 0;
  ...
end;

Para indicarle a QuickReport la impresora seleccionada, revisa el mensaje #8 de este enlace: ¿como Imprimir a varias impresoras'?

Saludos

Hola @ecfisa, yo de nuevo, una cosa, cuando quiero indicarle al QR la impresora seleccionada me da un error Access Violation at address 007B838A in module 'Mi programa.exe'. Read of address 000000004. alguna idea de por que?

[feliz-58]

Empezado por ecfisa

Hola.

¿ Cuál es el evento y como es el código mediante el cuál indicas la impresora a QR ?

Saludos

QImprimir1.QRep.QRPrinter.PrinterIndex := Printer.Printers.IndexOf(CBImpresora.Text);

[ecfisa]

Hola.

¿ Cuál es el evento en que seleccionas la impresora y como es el código mediante el cuál le indicas la impresora a QR ?

Saludos

[ecfisa]

Hola.

No parece haber ningún error allí, solo por si acaso... ¿ Controlas el valor del índice del combo ?

Código Delphi [-]
begin
  if CBImpresora.ItemIndex = -1 then  // <-
    Exit;
  QImprimir1.QRep.QRPrinter.PrinterIndex := Printer.Printers.IndexOf(CBImpresora.Text);
end;

Saludos

[feliz-58]

Empezado por ecfisa

Hola.

No parece haber ningún error allí, solo por si acaso... ¿ Controlas el valor del índice del combo ?

Código Delphi [-]
begin
  if CBImpresora.ItemIndex = -1 then  // <-
    Exit;
  QImprimir1.QRep.QRPrinter.PrinterIndex := Printer.Printers.IndexOf(CBImpresora.Text);
end;

Saludos

El combo muestra la lista de impresoras, elijo la que quiero, y luego hago la función pero me lanza el error ya mencionado.
si quito esa linea de código, obviamente se imprime en la impresora predeterminada, pero con esa linea me da el error.

[feliz-58]

Empezado por ecfisa

Hola.

¿ Cuál es el evento en que seleccionas la impresora y como es el código mediante el cuál le indicas la impresora a QR ?

Saludos

CBImpresora.Items := Printer.Printers;
CBImpresora.ItemIndex := 0;

[aledieb]

En quickreport no se puede elegir la impresora por nombre como en reportbuilder?
Si se puede proba usando el nombre, en ves del index porque puede ser ahi el problema.

[feliz-58]

Empezado por aledieb

En quickreport no se puede elegir la impresora por nombre como en reportbuilder?
Si se puede proba usando el nombre, en ves del index porque puede ser ahi el problema.

Saludos, En las propiedades del reporte no he visto la opcion, la unica que conozco es cuando haces un preview y en las opciones elijes otra impresora y le das a imprimir, pero lo que quiero es tenerlas guardaras en la base de datos, para usar varias impresoras dependiendo el tipo de reporte que se valla a imprimir.

[feliz-58]

Empezado por ecfisa

Hola.

No parece haber ningún error allí, solo por si acaso... ¿ Controlas el valor del índice del combo ?

Código Delphi [-]
begin
  if CBImpresora.ItemIndex = -1 then  // <-
    Exit;
  QImprimir1.QRep.QRPrinter.PrinterIndex := Printer.Printers.IndexOf(CBImpresora.Text);
end;

Saludos

Saludos, después de mucho buscar, encontré el error, en ves de poner:

Código Delphi [-]
 
QImprimir1.QRep.QRPrinter.PrinterIndex := Printer.Printers.IndexOf(CBImpresora.Text);

Es:

Código Delphi [-]
QImprimir1.QRep.PrinterSettings.PrinterIndex := Printer.Printers.IndexOf(CBImpresora.Text);

Vine a ponerlo por si otra persona le pasa lo mismo.
Gracias por todo...

[ecfisa]

Empezado por feliz-58

Vine a ponerlo por si otra persona le pasa lo mismo.
Gracias por todo...

Saludos