可以选用HTML控件的AutoPrint方法。例如：
　　uses Printers;

　　procedure TForm1.Button1Click(Sender: TObject);
　　var
  　　 OldCur: TCursor;
　 begin
  　　OldCur := Screen.Cursor;
  　　with Printer do
      begin
   　　 BeginDoc;
   　　 HTML1.AutoPrint(handle);
   　　 Title := HTML1.URL;
   　　 EndDoc;
  　　end;

  　　Screen.Cursor := OldCur;
　　end;

　　此外还可以利用其PrintPage方法。不过我推荐你采用AutoPrint，因为这样控制更灵活，可以过滤一些你不希望打印的内容。

支持