关于dbgrid选定行打印问题

Question

我想将dbgrid网格中选定的数据行按照自己设定的报表格式进行打印，如何实现啊？拜托各位了！

Answer 1

http://www.wave12.com/web/SigCon.asp?bCate=50&sCateName=%B9%A6%C4%DC%BD%E9%C9%DC&ID=173&CateName=wsReport4.5

Answer 2

//窗体上放两个字段结构一样的ClientDataSet, ClientDataSet1为源数据集
//ClientDataSet2为你要打印的数据集procedure TForm1.Button1Click(Sender: TObject);
var
  Book: TBook;
  I, J : integer;
begin
  for I := 0 to DBGrid1.SelectedRows.Count - 1 do begin
    Book := TBook(DBGrid1.SelectedRows.Items[I]);
    ClientDataSet1.GotoBook(Book);
    ClientDataSet2.Append;
    for J := 0 to ClientDataSet1.FieldCount - 1 do
      ClientDataSet2.Fields[J].Value := ClientDataSet1.Fields[J].Value;
    ClientDataSet2.Post;
  end;
end;