怎样可以将查出来的记录从左到右打出来，而不是从上到下打印啊？？？

Question

我要打印的数据是：
a1 b1
a2 b2
a3 b3
...
但是我要打印的格式是：
a1 b1 a2 b2 a3 b3 ....这样将数据从左到右打印有什么办法啊？？

Answer 1

用FastReport 的交叉表头应该可以

Answer 2

自己写代码
col,row : int;
begin
col := 0;
row := 0;
While not Query1.eof do
begin
  printer.TextOut(col,row,fields[0].asstring);
  query1.Next;
  ....
end;
只是一个意思，可能语句不太对

Answer 3

//unit
  printers,var
   x:integer;
begin
  try
  While not Query1.eof do
     begin
        x:=printer.canvas.Textwidth(Fields[0].asstring);
        printer.BeginDoc;
        printer.Canvas.Font.Name:='宋体';
        printer.Canvas.Font.Style:=[FsBold];
        printer.Canvas.Font.Size:=10;
        Printer.Canvas.TextOut(10+x,10,fields[0].asstring);
        next;
    end;
  finally
    printer.EndDoc;
  end;
end;

Answer 4

我真不明白你们搞打印时,为啥不下载一个ekrtf控件,那么好用,还是将结果输出到word里的,想如何打印就如何打印!太方便了.我做涉及到打印的项目时,都用这个软件.