Ver Mensaje Individual
  #12  
Antiguo 07-11-2021
feliz-58 feliz-58 is offline
Miembro
 
Registrado: sep 2012
Posts: 314
Reputación: 13
feliz-58 Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
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...
Responder Con Cita