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
sql := 'SELECT * FROM venta_detalle WHERE ya_impresa = 0 and etiqueta = '+inttostr(i)+' and id_factura = ' + floattostr (registro); AQdumy.SQL.Clear;
AQdumy.SQL.Add(sql);
AQdumy.Active := true;
IF AQdumy.Eof = false THEN BEGIN
IF i = 1 then
begin
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;
END;
end;