Web打印之Js&CSs控制.

最新推荐文章于 2021-11-11 00:46:41 发布

wztgq

最新推荐文章于 2021-11-11 00:46:41 发布

阅读量1.6k

点赞数

分类专栏： HTML&CSS Jscript技术文章标签： css web vbscript function 报表 javascript

本文链接：https://blog.csdn.net/wztgq/article/details/615630

版权

Jscript技术同时被 2 个专栏收录

10 篇文章 0 订阅

订阅专栏

HTML&CSS

1 篇文章 0 订阅

订阅专栏

1. IE浏览器. 文件->页面设置.
把页脚去掉就行了.

2.用代码.
//有提示的..
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="YC">
<script language="VBScript">
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="/Software/Microsoft/Internet Explorer/PageSetup"
''//设置网页打印的页眉页脚为空
function pagesetup_null()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="/header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
hkey_key="/footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
end function
''//设置网页打印的页眉页脚为默认值
function pagesetup_default()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="/header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页码，&p/&P"
hkey_key="/footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"
end function
</script>
</HEAD>

<BODY>
<br>
<br>
<br>
<br>
<br>
<br><p align=center>
<input type="button" value="清空页码" οnclick=pagesetup_null()> <input type

="button" value="恢复页吗" οnclick=pagesetup_default()><br>

</p>
</BODY>
</HTML>
web打印的另类方法

相信用B/S方式做过应用的人都可能会遇到这样一个问题，如何方便、美观地实现报表打印。如果使用浏览器的打印菜单打印的话，将把网页上的一些无用的东西打到报表上，比如应用菜单等。因为选择打印菜单打印网页将会把网页中的所有内容全部打印出来，如果你的应用有分帧则打印内容将包括各帧中的内容，而你实际要的内容只是其中一部分。所以有很多应用就只能把打印功能放到后台完成了。　　针对这种情况，我们该怎么办？其实可以有多种方法实现网页打印功能。

　　一种方法就是使用专业的打印工具，如Crystal Reports(水晶报表)。用过Visual Studio 5.0的朋友肯定记得这个工具，不过那时的版本只有4.几。现在的最新版本已达9了，近几个版本的水晶报表都支持WEB打印。最简单的方法是先用水晶报表制作好模板，然后使用ASP带参数调用制作好的模板即可。水晶报表在网页上生成报表后，可以直接打印，也可以转存为其它的比较通过的文件如Excel文件。使用水晶报表可以制作出非常漂亮的样式，关键在你对水晶报表的开发能力上，但由于水晶报表价格较高，只有当项目很赚钱时才买得起。

　　第二种方法是购买第三方的网上打印控件，费用同水晶报表相比便宜，但效果性能到底如何则仁者见仁了。

　　第三种方法是利用样式表及JavaScript自定义函数实现。通过样式表及JavaScript，实现网页打印，效果也还可以。在此有一个实例请大家看看。下面是打印函数实现详解：

＜script language="JavaScript" type="text/JavaScript"＞

＜!--

function DP() {

if (window.print)

{

var Div1 = document.all.Div1.innerHTML;

var Div2 = document.all.Div2.innerHTML;

// *****************************************************

// Div1、Div2即为你在打印的区域

// 这里根据你要打印的哪些内容，从原显示页面中用

// ＜div id=Div1＞Div1....＜/div＞＜div id=Div2＞Div2...＜/div＞

// 等标示出来,要打印多少项目就标示多少

// ***************************************************** var css = ''＜style type="text/css" media=all＞'' +

''p { line-height: 120%}'' +

''.ftitle { line-height: 120%; font-size: 18px; color: #000000}'' +

''td { font-size: 10px; color: #000000}'' +

''＜/style＞'' ;

// *****************************************************

// 定义打印用的CSS，具体你想打印出什么样的格式全看你自己

// 了，但要注意：如果此处有什么同网页中不一致的，可能打印

// 出来的页面同网页格式、字体可能会有所不同

// *****************************************************

var body =''＜table width="640" border="0" cellspacing="0" cellpadding="5"＞'' +

'' ＜tr＞ '' +

'' ＜td class="fbody"＞ '' +

'' ＜div align="center" class=ftitle＞'' + Div1 + ''＜/div＞'' + Div2 +

'' ＜/td＞'' +

'' ＜/tr＞'' +

''＜/table＞'';

// ******************************************************

// 在此处重新设置的打印格式，根据你的打印要求，将原显示的

// 网页的DIV内容重新组合，可以根据你原来的表格内容，去掉

// 不要打印的，你也可以能下面定义的noprint忽略掉你不想打

// 印的东西，只调用你要打印的内容，但这样被忽略掉的地方将

// 打印出空，不是很美观。表格宽度要同打印的纸张宽度匹配。

// ******************************************************

document.body.innerHTML = ''＜center＞'' + css + body + ''＜/center＞'';

// ******************************************************

// 重设document.body，打印文档准备就绪

// ******************************************************

window.print();

window.history.go(0);

// ******************************************************

// 调用打印命令，打印当前窗口内容。当你打印时其实是一张新

// 的网页了，但网页文件还是原先的。紧接着调用

// window.history.go(0)，再回到打印前的页面，效果相当不差

// ******************************************************

}

}

--＞

＜/script＞

＜style＞

@media print {

.noprint {display:none}

}

＜/style＞

＜!--//.noprint 定义了noprint，在以下不需要打印的地方加入 class="noprint"后，用window.print()打印就会忽略--＞

　　好了，一切就绪了，现在要做的就是调用DP函数，如果你将实现调用的按钮设计在同一张网页上，则直接调用即可；如果你用了分帧方法，实现调用的按钮是在另一张网页上，则在DP函数的第一行加入window.focus()命令，否则打印的只是有按钮的网页。

　　第四种方法，实现是一种取巧的方法。一样还是通过调用window.print()实现，只是将你要打印的内容专门生成一张网页，而打印按钮在另一帧上。假设报表网页在mainFrame上，按钮在topFrame上，按钮调用PrintReports()函数，PrintReports()函数如下即可实现打印工作。

function PrintReports() //topFrame网页中的函数

{

try

// *******************************************************

// 错误处理，如果在mainFrame中的网页没有DP函数则不打印

// *******************************************************

{

window.parent.frames("mainFrame").DP();

}

catch(e)

{

alert("no object to print!");

}

}

function DP() // mainFrame网页中函数

{

window.focus();

if (window.print)

{

window.print();

}

}

我个人认为这是最方便的方法了。

　　最后，如果你将IE浏览器的“文件－－页面设置”中的“页眉、页角”的设置去掉，则效果更佳了。(转载)

用Word打印...

运行下列的脚本需要将IE的安全级别设为低，或在中级安全级别下将那个ActiveX控件设为启用，忘记了：

<html>
<head>
<title>Build Document by Script</TITLE>
</HEAD>
<Table id="myData" border=1 align=center>
<Tr align=center>
<Td>产品名称</Td>
<Td>产品描述</Td>
<Td>产品单价</Td>
<Td>产品等级</Td>
</Tr>
<Tr align=center>
<Td>产品一</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center>
<Td>产品二</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
<Tr align=center>
<Td>产品三</Td>
<Td>This is a test</Td>
<Td align=right>300.50</Td>
<Td>一级</Td>
</Tr>
</Tabld>
<input type=button οnclick="vbscript:buildDoc '''',4" value="build">
<BODY>
</BODY>
</HTML>
<script language="vbscript">
Sub buildDoc(theTemplate,intTableRows)
Dim Table1
set Table1 = document.all.myData
row = Table1.rows.length
Set objWordDoc = CreateObject("Word.Document")
ObjWordDoc.Application.Visible=True
Dim theArray(4,4)
''Redim Preserve theArray(4,row)
colnum = Table1.rows(1).cells.length
for i=0 to row-1
for j=0 to colnum-1
theArray(j+1,i+1) = Table1.rows(i).cells(j).innerHTML
next
next

intNumrows = 4

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("测试的表格")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")

Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True
.ParagraphFormat.Alignment = 1
.Font.Name = "Arial"
.Font.Size = 12
End With

Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,intNumrows,4)

for i = 1 to colnum
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
next
tabRow = 2

For j = 2 to intNumrows
''ObjWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Borders.Enable=False
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.InsertAfter theArray(1,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.InsertAfter theArray(2,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter FormatCurrency(theArray(3,j))
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.ParagraphFormat.alignment=2
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter theArray(4,j)
''objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter Chr(10)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1
tabRow = tabRow + 1
Next

'' objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.ParagraphFormat.alignment=1

''objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
''objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
''objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Regards,")
''objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
''objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Daryl B. Morticum")
''objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Sales Associate")
''objWordDoc.Application.ActiveDocument.Envelope.Insert Address
'' objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertAfter("由廖家远设计")

objWordDoc.Application.ActiveDocument.SaveAs "tempSample.doc", 0,False,"",True,"",False,False,False, False,False
''objWordDoc.Application.printout()

End Sub
</script>
关于在页面中解决打印的几个问题，希望对你有所帮助！

我们都知道，现在的B/S应用越来越多，我们做程序的时候经常会遇到需要打印报表的情况,但是
我们知道我们很难对IE的客户端的打印机进行控制，我们除了对Window.print 的控制以外。没有
其他的任何的办法，而有的时候我们又必须是先预览，然后打印，有的时候我们也必须页面设置后
进行打印，怎么办？

有的朋友可能已经发现，在IE的 File 菜单下，这些都是有的，但是怎么通过脚本程序来调用这些菜单呢？
经过CafeCat的Sample的提示，终于发现使用一个ActiveX控件是可以实现这个功能的,请看下面的Code
<OBJECT classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 id=WB width=0></OBJECT>
这个Object 其实就是 IEWebBrowser 设定 Width 和 Height 以后，我们在界面上就看不到控件的形状了

然后，我们就可以使用这个object 实现我们选纸和预览的功能了
<script language="JavaScript">
function doPrintSetup(){
//打印设置
WB.ExecWB(8,1)
}
function doPrintPreview(){
//打印预览
WB.ExecWB(7,1)
}

打印Web的完全技术版

在这里经常有人问起打印Web页面的问题，虽然有很多朋友都知道window.print()可以实现打印功能，但是功能不够完全，下面这个例子将会告诉你怎么实现完整的打印控制技术:
<html>
<head>
<script language="javascript">

</script>
<SCRIPT LANGUAGE="VBScript">
sub print
olecmd = 6 '' 打印命令
oleparam = 1
on error resume next
Printit.ExecWB olecmd, oleparam
if err.number <> 0 then
if DA then '' ie4的用户将退出打印
alert "打印不成功."
else '' ie3的用户将执行handle_error错误处理
handle_error
end if
end if
end sub
</SCRIPT>
</head>
<body>
<form>
<Input type=button value="打印" οnclick="window.print();">
</form>
<OBJECT ID="Printit"
WIDTH=0 HEIGHT=0
CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2">
</OBJECT>
</BODY>
</HTML>