Memo打印1

 

 

 

 

 

Delphi 打印Memo里面的内容 实现的功能和记事本的打印的功能一样

打印保存为文件时此时的文件名如何设置？

当Memo里的文本数量巨大时 窗体正在打印会出现点数字显示问题 闪烁

 

PageSetup没做任何功能

---

 

 

 

 

 

 

 

 

;
    Top;
    y ) ;) ;

) ;
      posY1) ;
      ;           #,TitleStr,##,Format( #,TitleStr,##,Format('第 %d 页',[j]));
      EndDoc;
     // Form1.Caption:= Format('x = %d y = %d Width = %d Height = %d ',[x,y,PageWidth,Pageheight]);
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    MemoPrinter(Memo1,'Hello Roman');
end;

end.

 

 

 

---

;
    Close;
end;

end.

 

 

 

 

来自为知笔记(Wiz)

附件列表