delphi简略打印预览

delphi简单打印预览

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;