Impresion en diferentes impresoras

[omy]

TENGO UNA IMPRESORA PREDERTERMINADA Y CUANDO LA VARIABLE "I" ES UNO DESEO MANDARLA A OTRA IMPRESORA QUE NO ES LA PREDETERMINADA LO INTENTE CON "printer.printerindex := 1; " PERO NO FUNCIONO

Código Delphi [-]
FOR i := 1 to 4 do
              begin
                 // Voy a buscar por las 4 etiquetas para cada tiket
                 sql := 'SELECT * FROM venta_detalle WHERE ya_impresa = 0 and etiqueta = '+inttostr(i)+' and id_factura = ' + floattostr (registro);  // etiqueta 1 es cocina
                 AQdumy.SQL.Clear;
                 AQdumy.SQL.Add(sql);
                 AQdumy.Active := true;
                 IF AQdumy.Eof = false THEN  //  PRIMERA ETIQUETA 1 COCINA
                    BEGIN
//                    imprimir.QRtiket.PreviewModal; // mando a imprimir
                       IF i = 1 then
                          begin
//                             printer.printerindex := 1;   ******" AQUI ES DONDE QUIERO QUE SE VAYA A OTRA IMPRESORA QUE NO ES LA PREDETERMINADA "
                             imprimir.QRLetiqueta.Caption := 'COCINA';

                          end;
                       IF i = 2 then imprimir.QRLetiqueta.Caption := 'BARRA';
                       IF i = 3 then imprimir.QRLetiqueta.Caption := 'TAQUERIA PLANCHA';
                       IF i = 4 then imprimir.QRLetiqueta.Caption := 'TAQUERIA TROMPO';

                       imprimir.QRtiket.Print;
//                       imprimir.QRtiket.PreviewModal;
                    END;
              end;

[Casimiro Noteví]

Por favor, no olvides nuestra guía de estilo, escribir en mayúsculas, en internet, equivale a gritar. Gracias:

GUÍA ESTÁNDAR

1. Leer completa la guía de estilo y seguir sus reglas, esta es la primera y mas fundamental regla.
2. Utilizar las opciones de búsqueda del Foro y Google antes de hacer una pregunta, es muy posible que el tema ya haya sido tratado.
3. Titular con nombres descriptivos las consultas, estos facilitan las búsquedas e incentivan posibles respuestas.
4. No titular los mensajes con palabras como Urgente, Necesito, Ayuda, estas no facilitan las búsquedas.
5. Escribir los mensajes con claridad, ortografía y redacción, un mínimo de elegancia literaria es importante para la comprensión de la consulta.
6. No escribir nunca los mensajes en mayúsculas, esto denota falta de respeto a los foristas.
7. Formular las preguntas con el mayor detalle posible evitando todo tipo de ambigüedad, facilita el análisis del problema planteado y aumenta la probabilidad de obtener una solución a la consulta realizada
8. ...

[omy]

Una disculpa.

[Casimiro Noteví]

Empezado por omy

Una disculpa.

Si quieres imprimir en otra impresora, creo que lo mejor es que tengas otro componente de qreport configurado para esa otra impresora.
O sea, uno configurado para imprimir el ticket en la impresora correspondiente, y otro configurado para usar la impresora de cocina. Ambos totalmente independientes.
Es lo más cómodo.

[omy]

Ok voy a probar, solo no me queda claro como configuro el otro "qreport" a una impresora que no esta determinada ya que no hago "Preview" y los usuarios desconoces cosas como seleccionar otra impresora. ?

[Casimiro Noteví]

La forma que te he indicado no es la única, aunque me ha parecido que es la más simple.