delphi简单打印预览

最新推荐文章于 2023-11-02 07:53:30 发布

hszdz

最新推荐文章于 2023-11-02 07:53:30 发布

阅读量485

点赞数

CC 4.0 BY-SA版权

分类专栏： windows

本文链接：https://blog.youkuaiyun.com/hszdz/article/details/84182574

windows 专栏收录该内容

8 篇文章

订阅专栏


var
  PreviewFormEh: TPreviewFormEh;
begin
  PreviewFormEh:=TPreviewFormEh.Create(Application);
  PreviewFormEh.Show;
  with PreviewFormEh.PreviewEh1 do
  begin
    Printer.BeginDoc;
    Printer.Canvas.MoveTo(10,10);
    Printer.Canvas.LineTo(1499,1599);
    Printer.Canvas.Font.Size:=50;
    Printer.Canvas.TextOut(200,200,'大家好');
    Printer.EndDoc;
    //Printer.Print;
  end;
end;