| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
雷速体育发帖软件开发QQ118000023C语言培训|一对一辅导|零基础学编程LightningChart 快速先进的.Net图表控件
共有 1953 人关注过本帖
标题:如何打印一个Web页面
只看楼主 收藏
yangguofa
Rank: 1
等 级:新手上路
帖 子:197
专家分:0
注 册:2004-5-5
  问题点数:0  回复次数:1   
如何打印一个Web页面
可以选用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,因为这样控制更灵活,可以过滤一些你不希望打印的内容。
搜索更多相关主题的帖子: Web  打印  页面  OldCur  begin  
2004-06-01 09:21
好学
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
帖 子:593
专家分:125
注 册:2004-5-4
  得分:0 

支持

2004-06-01 09:55







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050820 second(s), 7 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved