たとえば、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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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をたくさん作ることができますが、横向きには問題があります（スクリプトで向きを決定する必要があります）。