考到网页里自己用
看看是不是这样的？？？
<html>
<HEAD>
<TITLE>行为效果演示</TITLE>
<STYLE>
.myfilter{behavior:url(99.htc)position:relative}
@media print{
INPUT {display:none}
}
</STYLE>
</HEAD>
<BODY>
<span id="myspan" class='myfilter'>行为产生的文字效果</span><br>
<span class='myfilter'>鼠标指向后产生辉光</span><br>
<span class='myfilter'>同时文字变白</span><br>
<span class='myfilter'>按下鼠标后文字变黄</span><br>
<span class='myfilter'>抬起鼠标后文字变蓝</span><br>
<span class='myfilter'>鼠标离开后文字恢复原状</span><br>
<button onclick="myspan.move_right()print()">向右移动第侍宴伏一行老携文字</button><br>
<button onclick="myspan.move_down()">向下移动第一行文字</button>
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0></OBJECT>
<input type=button value=打印 onclick=document.all.WebBrowser.ExecWB(6,1)>
<input type=button value=直接打印 onclick=document.all.WebBrowser.ExecWB(6,6)>
<input type=button value=页面设置 onclick=document.all.WebBrowser.ExecWB(8,1)>
<input type=button value=打印预览 onclick=document.all.WebBrowser.ExecWB(7,1)>
<input type=button value=打开 onclick=document.all.WebBrowser.ExecWB(1,1)>
<input type=button value=另存为 onclick=document.all.WebBrowser.ExecWB(4,1)>
<input type=button value=属性 onclick=document.all.WebBrowser.ExecWB(10,1)>
<input type=button value=全选 onclick=document.all.WebBrowser.ExecWB(17,1)>
<input type=button value=刷新 onclick=document.all.WebBrowser.ExecWB(22,1)>
<input type=button value=关闭窗口 onclick=document.all.WebBrowser.ExecWB(45,1)>
<a href="#" onclick="print()">gfghfhf onc</a>
</BODY>
</html>
用jsp把纸质模板画出来，然后需要填写的让毕腔闷地方用变量代替就可以了应该不难
简单坦圆芹点的办法，就是把纸质文档变成word文档，然后把word文档转换成HTML，然后把html代码直接粘贴到jsp，替换里面的需要填写的地方
如果你想自己用Delphi编写一个打印程序 那么 下面这些技巧或许对你有所帮助
获取 显示当前打印机的分辨率
Windows下的打印分辨对打印程序有着至关重要的作用 如果你想知道打印机的分辨率 请在程序中加入一行
ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printer Handle LOGPIXELSX))＋chr( )＋′垂直分辨率:′＋ inttostr(GetDeviceCaps(printerHandle LOGPIXELSY)))
结果就一目了然了
将结果直接送到打印机
Delphi提供了两种打印方式 一是将结果输送到Form 再调用Form的print方法将结果输送到打印机 二是将结果直接输送到打印机 如果你采用第一种方式 则无论你怎样调整Form的PrintScal属性 打印出来的东西也不会让你满意 因此建议采用第二种方式纳兆
尽洞世租量不要使用AssignPrn
尽管AssignPrn简化了文本打印 *** 作 使输出到打印机像输出到文件一样简单 但简单带来的是一系列的不方便 你无法知道当前打印的行数 无法准确控制行距 无法灵活改变字体字形等等 还返迹是用打印机的Canvas属性进行打印吧
用打印机的点数做度量单位
如果想让打印程序在任何打印机上都能正常地打印 你就必须改变你的度量单位 如果采用固定的度量 不同分辨率的打印效果是不同的 举例来讲 printerCanvasrectangle( )在 × 的佳能 SP上能打出一个 英寸宽 英寸高的矩形 但在 × 的惠普 L上只能打出 英寸宽 英寸高的矩形 使用打印机的点数做为度量单位是一个明智的选择 具体做法如下
Var PointX PointY:integerPointX:=GetDeviceCaps(printerHandle LOGPIXELSX)PointY:=GetDeviceCaps(printerHandle LOGPIXELSX)printerCanvasrectangle( PointX＊ PointY＊ )这样 无论你使用什么样的打印机 都能得到一个 英寸宽 英寸高的矩形
添加打印程序单元
lishixinzhi/Article/program/Delphi/201311/24867
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）