Ver Mensaje Individual
  #3  
Antiguo 23-08-2015
omy omy is offline
Miembro
 
Registrado: ago 2003
Ubicación: Acapulco gro.
Posts: 100
Reputación: 21
omy Va por buen camino
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;
__________________
omar velazquez

Última edición por Casimiro Notevi fecha: 23-08-2015 a las 16:50:53.
Responder Con Cita