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;
delphi简单打印预览
最新推荐文章于 2024-06-13 09:35:59 发布