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;