关于打印

Question

这里写一个可以打印TString的函数:uses Printers;procedure PrintStrings(Strings: TStrings);
var
  Prn: TextFile;
  i: word;
begin
  AssignPrn(Prn);
  try
    Rewrite(Prn);
    try
      for i := 0 to Strings.Count - 1 do
        writeln(Prn, Strings.Strings[i]);
    finally
      CloseFile(Prn);
    end;
  except
    on EInOutError do
      MessageDlg('Error Printing text.', mtError, [mbOk], 0);
  end;
end;在打印的时候,可使用:
PrintStrings(Memo1.Lines);
或
PrintStrings(Listbox1.Items);
打印.

Answer 1

这里写一个可以打印TString的函数:uses Printers;procedure PrintStrings(Strings: TStrings);
var
  Prn: TextFile;
  i: word;
begin
  AssignPrn(Prn);
  try
    Rewrite(Prn);
    try
      for i := 0 to Strings.Count - 1 do
        writeln(Prn, Strings.Strings[i]);
    finally
      CloseFile(Prn);
    end;
  except
    on EInOutError do
      MessageDlg('Error Printing text.', mtError, [mbOk], 0);
  end;
end;在打印的时候,可使用:
PrintStrings(Memo1.Lines);
或
PrintStrings(Listbox1.Items);
打印.

Answer 2

uses Printers;
procedure printmemo(lst:TStrings);
var
  i,line:integer;
begin
  line:=0;
  printer.begindoc;
  for i:=0 to lst.count-1 do
    begin
      printer.canvas.textout(0,line,lst[i]);
      line:=line+abs(printer.canvas.font.height);
      if (line>=printer.pageheight) then
          printer.newpage;
   end;
  printer.enddoc;
end;

Answer 3

行吧，我都是这样打印的。
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]