📄 4432.html
字号:
<html>
<head>
<title>这个打印程式错在那里?</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>这个打印程式错在那里?</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:kkcheung@resolink.com">kkcheung</a> on August 06, 1998 at 16:12:40:<p>
prn_count = Printers.Count: l = 1<br> ReDim prn_name(prn_count)<br> <br> For Each X In Printers<br> prn_name(l) = X.DeviceName<br> l = l + 1<br> Next<br> prnstr = "请选择以下列印机: " + Chr(13) + Chr(10)<br> For l = 1 To prn_count<br> prnstr = prnstr + Trim(Str(l)) + "--- " + Trim(prn_name(l)) + Chr(13) + Chr(10) + Chr(10)<br> strall = strall + Trim(Str(l))<br> Next l<br> res0 = InputBox(prnstr, "选择列印机", "1")<br> res0 = Trim(res0)<br> If InStr(strall, res0) <= 0 Or res0 = "" Then<br> MsgBox "选择列印机错误,系统将放弃本次列印."<br> Exit Sub<br> Else<br> prnorder = Val(res0) - 1<br> Set Printer = Printers(prnorder)<br> End If<br> MsgBox "请准备好打印机后,再按[确定]"<br>Printer.NewPage<br>Printer.EndDoc<p>上面的程式会将所有接上该电脑的打印机(包括纲络上的)列出供选择,<br>但每当选了其他的打印机,newpage还是在本机,即printer(0),为什么?<br>注:纲络上的打印机在其他软件是可正常打印的.
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4432-->
<!--top: 4515--><li><a href="4515.html">Re: &#30786;□&#12468;□&#31064;Α&#23743;□e柑?</a> <b>Forrest</b> <i>12:45:27 8/08/98</i>
(<!--responses: 4515-->2)
<ul><!--insert: 4515-->
<!--top: 4534--><li><a href="4534.html">Re: &#30786;□&#12468;□&#31064;Α&#23743;□e柑?</a> <b>kkcheung</b> <i>14:30:58 8/09/98</i>
(<!--responses: 4534-->0)
<ul><!--insert: 4534-->
</ul><!--end: 4534-->
<!--top: 4533--><li><a href="4533.html">Re: &#30786;□&#12468;□&#31064;Α&#23743;□e柑?</a> <b>kkcheung</b> <i>14:30:54 8/09/98</i>
(<!--responses: 4533-->0)
<ul><!--insert: 4533-->
</ul><!--end: 4533-->
</ul><!--end: 4515-->
</ul><!--end: 4432-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -