打印

Question

有一个窗体 Form1 上面有一个 Memo 控件，一个按钮('打印')；从硬盘上读一格 txt 文件到 Memo中按下‘打印’，先出现打印预览，然后将 Memo 中的内容打印出来最终在纸上打印的结果如下所示File:c:\test.txt                                   2008-11-21  20：48
---------------------------------------------------------------------test.txt 文件中的内容
--------------------------------------------------------------------
                             Page 1 of 3                 

Answer 1

opendialog->filenmae->loadfromfile->memo->用第三方控件预览和打印

Answer 2

var   
  PrnFileName: TextFile;   
begin   
  Assignfile(PrnFileName,MoneyPort);   
  Rewrite(PrnFileName);   
    
  write(PrnFileName,CHR(27)+'p'+CHR(0)+CHR(60)+CHR(255)   );或你打印的内容   
  CloseFile(PrnFileName);
end;

Answer 3

最简单就是用TStringList.LoadFromFile()取出文本文件
然后把你的
File:c:\test.txt                                  2008-11-21  20：48 
--------------------------------------------------------------------- test.txt 文件中的内容 
-------------------------------------------------------------------- 
                            Page 1 of 3                写进TStringList里面你去看看
http://www.builder.com.cn/2007/1101/596519.shtml
关于printer设置的

Answer 4

很简单啊
用fastreport
当你打开test.txt的时候记住路径很内容
然后(frReport.FindObject('GoodsTypeMemo') as TfrMemoView).Memo.Text:=Memo.Text;

Answer 5

要预览，直接用三方控件吧。比如上面说的：FastReport不要预览，可以用三楼的方式。