memo的打印问题

attar 2004-05-08 02:28:09
memo中的东西如何打印出来?直接就这么打印的话,好看么?是不是就是文本文件显示的那样?
...全文
31 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
konhon 2004-05-10
用QucikRep中QrStringBand可以打印的.

你用"QrStringBand"在本論談搜索,就可找到使用方法
  • 打赏
  • 举报
回复
attar 2004-05-09
没人知道么?
  • 打赏
  • 举报
回复
楚人无衣 2004-05-09
Printer.BeginDoc
for i : =0 to Memo1.Lines.Count - 1 do
-->
Printer.BeginDoc;
for i: = 0 to Memo1.Lines.Count - 1 do
  • 打赏
  • 举报
回复
楚人无衣 2004-05-09
直接好象没有打印函数;
uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
var
i, iLine: Integer;
begin
iLine := 0;
Printer.BeginDoc
for i : =0 to Memo1.Lines.Count - 1 do
begin
Printer.Canvas.TextOut(0, iLine, Memo1.Lines[i]);
iLine := iLine + Abs(Printer.Canvas.Font.Height);
if (iLine >= Printer.PageHeight) then
Printer.NewPage;
end;
Printer.EndDoc;
end;
用RichEdit试一试,它自己有Print方法
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库相关
加入

2462

社区成员

Delphi 数据库相关
申请成为版主
帖子事件
创建了帖子
2004-05-08 02:28
社区公告
暂无公告