如何实现HTML的打印和预览

如何实现HTML的打印和预览

HTML的打印和预览向来是个难题,但自从IE5.5推出后,情况大有改观。你可以利用其“打印模板”功能,实现自己的预览窗口和控制打印。“打印模板”的使用方法请参考MSDN Library中的Web Development > Programming and Reusing the Browser > Print Templates目录下的文章。从微软的网站上还可以下载到一个不错的例子,示例如何一步步由浅入深地使用Print Template

你会发现,要自己实现一个功能完善的打印模板也并非易事。IE浏览器本身带的打印模板做得还不错,能否在它的基础上加上自己的定制功能呢?答案是肯定的,至少从技术上看是这样(不考虑版权问题)。下面就介绍这偷懒的招。

用Visual Studio打开x:\Program Files\Internet Explorer\MUI804\SHDOCLC.DLL,会看到其资源目录。其中HTML/PREVIEW.DLG就是IE所带的打印模板了。把它export(导出)出来,把文件扩展名改成HTM,打开看看,是不是特刺激?PREVIEW.DLG用到了几个图片文件,在2110目录下,别忘了导出。(注:我的环境是Windows XP Professional英文版+SP1a,IE是6.0sp1。)

IE默认的模版中,页眉页脚均只支持纯文字。下面以定制HTML页眉为例,看看如何定制自己的打印模板。思路是:用自己的页眉内容换掉原有的内容,并修改其页眉高度和页边距使之和新的页眉相对应。

第一步,定义页眉。在要使用此模版预览打印的HTML文件中加入一个id为Header的div标记,括起HTML页眉内容,并制定以英寸为单位的页眉的高度和宽度,其中宽度应该和模版相符。例:

<div style="DISPLAY:none; WIDTH:6.5in; HEIGHT:0.78in">

...(HTML页眉内容)

</div>

第二步,声明变量。在模版前面变量声明部分加上两个变量声明:

var g_htmlHeader = "";//用于保存页眉内容

var g_nHeaerHeight = 0;//页眉的高度

第三步,取得页眉。在函数OnLoadBody()中的“Printer.footer = dialogArguments.__IE_FooterString”语句之后加入这段代码:

oPageHeader = dialogArguments.__IE_BrowseDocument.all.item("Header", 0);

if (null != oPageHeader)

{

g_htmlHeader = oPageHeader.innerHTML;

g_nHeaerHeight = oPageHeader.style.posHeight;

}

第四步,指定页边距和页眉高度。在上面的代码下面紧接着加入:

//指定页边距。其中40可以自己改,单位是百分之一英寸。

Printer.marginTop = 40 + (g_nHeaerHeight * 100);

Printer.marginBottom = 40;

Printer.marginLeft = 40;

Printer.marginRight = 40;

在函数EnsureDocuments()中,

/*注释掉以下代码

if (header)

{

tmp = upTop + (27 / 100);

if (tmp > top)

top = tmp;

}

if (footer)

{

tmp = upBottom + (27 / 100);

if (tmp > bottom)

bottom = tmp;

}

*/

//紧接着加上:

tmp = upTop + g_nHeaerHeight;

if (tmp > top)

top = tmp;

//下面隔几行,注释掉:oRule.style.top = upTop + "in";

第五步,指定页眉内容。在函数CPrintDoc_AddPage()中,在“HeadFoot.page = HeadFoot.pageTotal;”语句之后加入:

//这两行用于设置页码,你在页眉可以通过加入“[P]”和“[p]”分别代表总页数和当前页数。

g_htmlHeader = g_htmlHeader.replace("[P]", "<span ></span>");

var pageHeader = g_htmlHeader.replace("[p]", HeadFoot.pageTotal);

//下面隔3行,注释掉:

//~oPage.children("header").innerHTML = HeadFoot.HtmlHead;

//~oPage.children("footer").innerHTML = HeadFoot.HtmlFoot;

//下面隔几行,把“newHTM += HeadFoot.HtmlHead;”改为:

newHTM += pageHeader ;

//然后注释掉(不要页脚):newHTM += HeadFoot.HtmlFoot;

至此,一个支持自定义HTML页眉的新模版就定制完成了。是不是觉得特爽?如果觉得它给你省下了两周的时间,就赶紧到“希望之光”网站上,花你2天的工资,资助一个小孩上学吧。

定制好的打印模板怎么用呢?请看以下代码:

var

vaIn, vaOut: OleVariant;

CmdTarget : IOleCommandTarget;

MyHandle : THandle;

begin

vaIn := 'c:\\Preview.htm';

//预览方法1:WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);

//下面是方法2:

if WebBrowser1.Document <> nil then

begin

WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);

if CmdTarget <> nil then

begin

try

CmdTarget.Exec( PGuid(nil), OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut);

finally

CmdTarget._Release;

end;

end

else

begin

ShowMessage('IE不支持该功能,请升级至IE5.5以上。');

end;

end;

end;

方法1简洁,但是如果WebBroswer不支持打印预览的话就会出错。第二种方法可能更好一些。

在打印预览时,预览窗口的尺寸大小总是和WebBrowser所在的Form的一样,而且没法最大化。更麻烦的是,如果你的表单是嵌入到了别的表单的组件上显示的,例如,Form1.Parent := Form2.Panel1,即Form1显示在Form2中Panel1所占据的位置,那么预览窗口就变得很小了,不拉大根本没法看。解决办法如下,在预览的代码后面加上以下代码,使预览窗口最大化:

Handle:=FindWindow('Internet Explorer_TridentDlgFrame', '打印预览');

if 0 <> MyHandle then

begin

ShowWindow(MyHandle , SW_MAXIMIZE);

end;

如果不预览而是直接打印,则把OLECMDID_PRINTPREVIEW换成OLECMDID_PRINT就可以了。

如果要在Web应用中使用打印模板,可以通过ActiveX来实现调用。

注:打印模板需要安装Internet Explorer 5.5以上版本,本文其它功能需要安装Internet Explorer4.0以上版本。

(0)

相关推荐

  • cad中如何设置打印并预览

    今天给大家介绍一下cad中如何设置打印并预览的具体操作步骤.1. 如图,是我们绘制好的图纸,在页面左上角点击打印图标.2. 在弹出的打印窗口中,在打印机名称下,选择打印到pdf选项.3. 然后对图纸尺 ...

  • 如何关闭佳能打印机打印前预览功能

    佳能是现在十分常用的打印机品牌之一,有些新用户不知道如何关闭佳能打印机打印前预览功能,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步先按下[Win+I]快捷键打开[设置]窗口,接 ...

  • Word2010如何利用后台视图轻松打印和预览文档

    当我们在Word2010中完成一份文档时,可以利用后台视图轻松地进行打印和预览.下面就来给大家分享一下在Word2010中如何利用后台视图进行打印和预览文档. 操作方法 01 首先,打开完成的Word ...

  • Word 2000文本打印前预览文档方法

    第一步:打开编辑好的文本文件。 第二步:单击常用工具栏上的“打印预览”按钮,或者移动鼠标到菜单栏,单击“文件”一“打印预览”,进入预览方式,显示“打印预览”工具栏。 第三步:工,具栏上第一个按钮是“打 ...

  • IE网页打印或预览出现空白

    解决网页打印出现空白的问题 操作方法 01 在 我的电脑/这台电脑/计算机 上鼠标右键后单击管理.会看到如图所示: 02 单击 服务和应用程序 03 双击中间框里的最上的 服务 04 单击 名称 后按 ...

  • 如何解决IE网页打印或预览出现空白的问题?

    我们在使用电脑的时候,难免会出现很多问题,那么我们在使用电脑的时候,我们如何处理呢?来一起去看看吧!具体如下:1. 第一步,我们需要点击打开"控制面板"2. 第二步,我们需要点击如 ...

  • 在Excel2010中如何显示打印预览

    本文介绍了如何通过在 Excel 2010 中显示打印预览,在打印之前预览页面。还介绍了如何使用“页面布局”视图,通过它您可以在查看文档的同时对其进行更改和编辑。 我使用 Excel 2010 创建了 ...

  • Excel2010中打印预览设置

    本文介绍了如何通过在 Excel 2010 中显示打印预览,在打印之前预览页面。还介绍了如何使用“页面布局”视图,通过它您可以在查看文档的同时对其进行更改和编辑。 我使用 Excel 2010 创建了 ...

  • WPS2000打印预览"异常"的原因及解决方法

    在WPS2000下打印、预览时文件时,每页第一行文字总有部分(或整行)被遮盖,怎么解决这个问题呢?经过摸索发现,这是由于纸张上边距设置不当造成的,解决方法很简单,只需在页面设置中,将纸张上边距设置≥2 ...