有关DBRichEdit(20分)

请教各位：如何将DBRichEdit中的显示内容进行打印和保存成文本文件？

帮助上有：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with PrintDialog1 do
begin
Options := [poPrintToFile];
PrintToFile := True;
if Execute then
begin
if PrintToFile then
begin
SaveDialog1.Title := 'Print to File: ';
if SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
end
else
RichEdit1.Print('');
end;
end;

end;

打印DBRichEdit？最简单的办法用QR，最麻烦的办法用Printer