📄 20611.html
字号:
<html> <head> <title>请教VB高手,如何写出 [将多个档案拖至印表机列印] 的效果?</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>请教VB高手,如何写出 [将多个档案拖至印表机列印] 的效果?</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:ctci@ms2.hinet.net">ctci</a> on October 25, 1999 at 13:46:11:<p>站上有一篇,列印任何档案的方法,可是一次只能印一个档(将档案印成另一<br>种档案),若依序列印多个档案,则并不会依序列印,而是几乎同时.<br>但我们若是同时选取多个不同类型的档,它却可以印完一个再印另一个<br>请问有什解决方法??<p>谢谢!<p>+----------------+<br>|以下为原程式范例|<br>+----------------+<br>Declare Function ShellExecuteAny Lib "shell32.dll" Alias "ShellExecuteA" _<br> (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _<br> ByVal lpParameters As Any, ByVal lpDirectory As Any, ByVal nShowCmd As Long) As Long<p>Const SW_SHOWMINNOACTIVE = 7<p>Sub PrintAnyFile(FileToPrint As String)<br> Dim Ret As Long<br> Ret = ShellExecuteAny(Me.hwnd, "print", FileToPrint, ByVal 0&, ByVal 0&, SW_SHOWMINNOACTIVE)<br>End Sub<br>'实际使用案例如下：<br>Private Sub Command1_Click()<br> PrintAnyFile Text1.Text<br>End Sub<br>其实上面这种列印档案的方式，它的作用方式，和我们直接将文件档案拖拉到印表机的图示上去列印档案是一样的道理！ (如果您之前尚不知道这个功能的话，您现在可以试试看将一份文件直接拖拉放到印表机的图示上，看看结果如何！)<p><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20611--></ul><!--end: 20611--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -