1, control "vertical dozen", horizontal dozen "and" the margins of the page.
(1) <script defer>
function Setprintsettings () {
Factory.printing.SetMarginMeasure (2)//measure margins in inches
Factory. Setpagerange (False, 1, 3)//need pages from 1 to 3
Factory.printing.printer = "HP DeskJet 870C"
Factory.printing.copies = 2
Factory.printing.collate = True
Factory.printing.paperSize = "A4"
Factory.printing.paperSource = "Manual feed"
Factory.printing.header = "This is Meadco"
Factory.printing.footer = "Advanced printing by ScriptX"
Factory.printing.portrait = False
Factory.printing.leftMargin = 1.0
Factory.printing.topMargin = 1.0
Factory.printing.rightMargin = 1.0
Factory.printing.bottomMargin = 1.0
}
</script>
2)
<script language= "& #106avascript" >
function Printsetup () {
Print Page Setup
WB.EXECWB (8,1);
}
function PrintPreview () {
Print Page Preview
WB.EXECWB (7,1); }
function PrintIt ()
{
if (confirm) (' OK to print? ')) {
WB.EXECWB (6,6)
}
}
</script>
<body>
<object classid= "CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height=0 id=wb name=wb width=0></OBJECT>
<input Type=button name=button_print & #118alue = "Print"
& #111nclick = "& #106avascript:p Rintit ()" >
<input Type=button Name=button_setup & #118alue = "Print Page Setup"
#111nclick = "& #106avascript:p Rintsetup ();" >
<input Type=button name=button_show & #118alue = "Print Preview"
& #111nclick = "& #106avascript:p Rintpreview ();" >
<input Type=button name=button_fh & #118alue = "Close"
& #111nclick = "& #106avascript: Window.close ();" >
WEBBROWSER.EXECWB (1,1) Open
WEB.EXECWB (2,1) closes all of the IE windows now and opens a new window
WEB.EXECWB (4,1) Save Web page
WEB.EXECWB (6,1) printing
WEB.EXECWB (7,1) Print preview
WEB.EXECWB (8,1) print Page Setup
WEB.EXECWB (10,1) view page Properties
WEB.EXECWB (15,1) seems to be withdrawn, pending confirmation
WEB.EXECWB (17,1) Select all
WEB.EXECWB (22,1) Refresh
WEB.EXECWB (45,1) Close the form without prompting
2, Paging printing
<HTML>
<HEAD>
<STYLE>
P {Page-break-after:always}
</STYLE>
</HEAD>
<BODY>
<%while not rs.eof%>
<p><%=rs (0)%></p>
<%rs.movenext%>
<%wend%>
</BODY>
</HTML>
3. How to get rid of the path at the bottom of the page and the number of the top page when printing ASP page
(1) IE file-〉 page settings-〉 said inside the header and footer inside of the things are removed, printing will not come out.
(2) <HTML>
<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"
'//Set page to print header and footer empty
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
'//Set the page header footer as the default value
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 page number, &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" & #118alue = "Empty page number" & #111nclick =pagesetup_null () > <input type= "button" & #118alue = "Restore Page" &# 111nclick=pagesetup_default () ><br/>
</p>
</BODY>
</HTML>
4, floating frame printing
<script language=& #106avascript >
function button1_& #111nclick () {
var odoc=window.iframe1.document;
var r=odoc.body.createtextrange ();
var Stxt=r.htmltext;
Alert (Stxt)
var Pwin=window.open ("", "print");
Pwin.document.write (Stxt);
Pwin.print ();
}
</SCRIPT>
4, using the FileSystem component to implement the local specific printing in the Web application
<script language=vbscript>
function print_& #111nclick//print functions
Dim label
label=document.printinfo.label.& #118alue//access to HTML page data
Set Objfs=createobject ("Scripting.FileSystemObject")//Create an instance of the FileSystem Component object
Set OBJPRINTER=OBJFS. CreateTextFile ("LPT1:", true)//establish a connection to the printer
Objprinter. Writeline ("__________________________________")/output printed content
Objprinter. Writeline ("| |")
Objprinter. Writeline ("| The data you printed is: "&label& |"
Objprinter. Writeline ("| |")
Objprinter. Writeline ("|_________________________________|")
Objprinter.close//Disconnect from the printer
Set objprinter=nothing
Set objfs=nothing//close FileSystem Component Object
End Function
</script>
Server-side scripting:
<% .....
Set Conn=server. CreateObject ("Adodb.connection")
Conn. Open "Dsn=name; uid=xxxx; pwd=xxxx; "
Set Rs=server. CreateObject ("Adodb.recordset")
Rs. Open ("Select ..."), conn,1,1
..........%>//interacting with the database
HTML page encoding:
<HTML>
.........
<form id=printinfo name= "Printinfo" >
<input type= "button" & #118alue = "Print >>" Id=print name=print >//Call print function
<input Type=hidden id=text1 Name=label & #118alue =<%=.........%>>//Save data from server side
.........
</HTML>
