请问怎么用fastreport打印listview中的内容？？？

Question

我想用报表形式打印listview中的内容，我用的打印组件是fastreport？请问怎么把listview中的内容直接输入fastreport打印？最好给点代码！分不够再加！

Answer 1

我这里有一个打印listview目录树的代码,不过不是用fastreport,是直接用printer打印的,也不可以预览,如果想要,留下邮箱

Answer 2

fastreport应该是可以直接关联到自定义的数据集的，具体看帮助吧，一般也没有人有时间帮你写代码的！

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  f: textfile;
  i,j : integer;
  str : string;
begin
  assignfile(f,'c:\test.txt');
  rewrite(f);
  str := '';
  for i := 0 to listview1.Columns.Count - 1 do
    str := str + listview1.Columns[i].Caption + '    ';
  writeln(f,str);
  str := '========================';
  writeln(f,str);
  for i := 0 to listview1.Items.Count - 1 do
  begin
    str := listview1.Items[i].Caption + '    ';
    for j := 0 to listview1.Items[i].SubItems.Count - 1 do
      str := str + listview1.Items[i].SubItems[j] + '    ';
    writeln(f,str);
  end;
  closefile(f);
end;

Answer 4

楼上，我比不是要把listview中的内容输出到文件中！