Geekly Articles each Day

Windows 7 / Vista / 2003/2008でネットワークプリンターに印刷するためのユニバーサルソリューション

接続されているプリンターへのネットワーク印刷時に非常に頻繁に問題が発生します
たとえば、OS Window 7がインストールされたコンピューター上のWindows XPがインストールされたコンピューター、nena Vista、2003、2008

問題の本質は、多くの場合、これらの「最新の」システムメーカーの下で
「古い」プリンターモデルは、ドライバーをリリースする気になりません。

だから私はこの状況を持っています：

友人から、新しく購入したラップトップからオフィス印刷をセットアップするように頼まれました。

1.もちろん、ラップトップはWindows 7を実行していました
2.もちろん-ホーム（以下の問題を参照）
3.もちろん-それ（システム）は64ビットでした。
4.もちろん-オフィスのプリンターは新しいものではありませんでした：HP1320とCanon MFxxxx
5.もちろん-WinXPを搭載したマシンでプリンターが接続され、「共有」されました。
6.そして、誰も1台のラップトップのネットワーク構造を変更しません
どのように問題を解決しましたか？

最初に私は間違った方法で行きました：
公式サイトからドライバーをダウンロードしてインストールしようとしました-そこにはありませんでした：
通常、キヤノンは64ビットシステム用のドライバーを提供していません。
一般的なMFPについて、私は黙っている。
MFxxxxシリーズの場合、松葉杖が推奨されました-MF57xxシリーズのドライバーを使用してください。 試した-システム
ドライバーが署名されているが、署名されていないという事実を理由に、インストールを拒否していることを示します。
Brr、せん妄。 未署名のwoodはホームにインストールできません（gpedit.mscはありません）。 あー

HPはHP1320用のPCL5ドライバーを提供しているようですが、動作しませんでした。
インストールしようとすると、理解できないエラーが発行され、グーグルが見つかりました
私と同じ貧しい人。

フォーラムに関する1つのコメントは特に微笑みました（正確な場所は覚えていませんが、HPのWebサイトでの意見では）。
「HP1320はビジネスモデルであるため、週末には電話サポートを提供しません。」

ちなみに、詐欺師はゴキブリのようなすべての亀裂に登ります。いつでも「グーグル」でダウンロードできます
任意のシステムの任意のプリンターのドライバー。 しかし、結果はもちろん、期待されるものではありません。

また、「グーグル」は私に別の恐ろしい事実を明らかにしました：今まで知られているサーバーOSで
企業はターミナルモードの印刷サブシステムに問題があります。 サードパーティでも
ソリューションは問題を完全に解決しません。

「これ以上ナンセンスなことはない」と私は思い、これをやった。

1. www.bullzip.comから仮想の無料PDFプリンターをダウンロードしました 。 それらの多く（PDFプリンター）がありますが、私が選んだのは次の理由からです。
a）これは64ビットシステムで動作します
b）無料（原則として、20ドルを与えることは残念ではありませんが、与えないことはできません）
Windows 7 64xを搭載したすべてのコンピューターに対応！）
c）彼が最初に見つかった:)
2.仮想PDFプリンターをインストールして構成し（C：\ Program Files \ Bullzip \ PDF Printer \ gui.exe）、ユーザーがダイアログボックスを取得しないようにし、.pdfファイルが\\ compxp \ printer1 \フォルダーに作成されるようにします
3.コンピューターに、compxpはFoxit Readerをインストールし、プリンターprinter1を「共有」して、起動時に単純なvbs-scriptを配置しました。

Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  1. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  2. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  3. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  4. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  5. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  6. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  7. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  8. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  9. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  10. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  11. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  12. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  13. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  14. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  15. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  16. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  18. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  19. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  20. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  21. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  22. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  23. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  24. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  25. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  26. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  27. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  28. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  29. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  30. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  31. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  32. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  33. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  34. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  35. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub
  36. Copy Source | Copy HTML 'On Error Resume Next ' PDF-, ' Set gFSO = CreateObject( "Scripting.FileSystemObject" ) Set gShell = CreateObject( "WScript.Shell" ) ', PDF- ( () .. ) gWatchFolder = "E:\master\printer\" ' While true Set lFolder = gFSO.GetFolder(gWatchFolder) Set lFiles = lFolder.Files For Each lFile In lFiles PrintFile(gWatchFolder & lFile.Name) Next WScript.Sleep(1) WEnd ' pdf- Sub PrintFile(pFileName) ' ( ) WScript.Sleep(3) 'msgbox(pFileName) ' () : s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """" 'msgbox (s) Call gShell.Run(s,0, true ) gFSO.DeleteFile(pFileName) If gFSO.FileExists(pFileName) Then ' , , 'msgbox(" " & pFileName & "! . 123-456) WScript.Quit 'Else ' 'ToLog(" " & lFileName & " .") End If End sub


スクリプトについては、キックしないでください-それはすぐに書かれたので、それは働いた。

出来上がり：
ユーザーは、プログラムの[印刷]ボタンを押すだけで、すぐにプリンターからドキュメントを取得します。
複数の仮想プリンターをインストールして、それらを任意に呼び出すことができます。 主なことは、プリンタの名前を変更するときに、設定を再度行う必要があることです。

そのような決定からの追加利益：
特に妄想的なボスの場合、cな管理者はログシステム全体を取得できます。
労働者が印刷したすべてをアーカイブして印刷する。

PS adobeが嫌いな人は、bullzip-> BMP（JPG）-> irfanをたくさん作ることができますが、横向きには問題があります（スクリプトで向きを決定する必要があります）。

Source: https://habr.com/ru/post/J112404/

More articles:


All Articles