विंडोज 7 / Vista / 2003/2008 के तहत नेटवर्क प्रिंटर पर मुद्रण के लिए एक सार्वभौमिक समाधान

बहुत बार समस्याएँ होती हैं जब नेटवर्क प्रिंटिंग प्रिंटर से जुड़ा होता है

उदाहरण के लिए, स्थापित ओएस विंडो 7, नीना विस्टा, 2003,2008 के साथ कंप्यूटर पर विंडोज एक्सपी के साथ एक कंप्यूटर के लिए



समस्या का सार अक्सर इस तथ्य में निहित है कि इन "आधुनिक" सिस्टम निर्माताओं के तहत

"आउटडेटेड" प्रिंटर मॉडल ड्राइवरों को छोड़ने के लिए परेशान नहीं करते हैं।



इसलिए मेरे पास यह स्थिति है:



एक मित्र ने मुझे नए सिरे से खरीदे गए लैपटॉप से ​​कार्यालय मुद्रण स्थापित करने के लिए कहा।



1. बेशक - लैपटॉप विंडोज 7 चला रहा था

2. बेशक - होम (समस्या क्या है नीचे देखें)

3. बेशक - यह (सिस्टम) 64-बिट था।

4. बेशक - कार्यालय में प्रिंटर नए नहीं थे: एचपी 1320 और कैनन एमएफएक्सएक्सएक्स

5. बेशक - प्रिंटर कनेक्ट किए गए और WinXP के साथ मशीनों पर "साझा" किए गए।

6. और कोई भी एक लैपटॉप के लिए नेटवर्क संरचना को नहीं बदलेगा

मैंने समस्या का समाधान कैसे किया?



पहले मैं गलत तरीके से गया:

मैंने डाउनलोड किया और आधिकारिक साइटों से ड्राइवरों को स्थापित करने की कोशिश की - यह वहां नहीं था:

कैनन आमतौर पर 64-बिट सिस्टम के लिए ड्राइवर प्रदान नहीं करता है।

सामान्य रूप से एमएफपी के बारे में मैं चुप हूं।

MFxxxx श्रृंखला के लिए, एक बैसाखी की सिफारिश की गई थी - MF57xx श्रृंखला के ड्राइवरों का उपयोग करें। कोशिश की - सिस्टम

इंगित करता है कि ड्राइवर ने हस्ताक्षर किए हैं, लेकिन इस तथ्य का हवाला देते हुए स्थापित करने से इंकार कर दिया है कि यह हस्ताक्षरित नहीं है।

ब्र्र, प्रलाप। अनसाइनड फायरवुड को होम (कोई gpedit.msc) पर स्थापित नहीं किया जा सकता है। ओह।



HP ने HP1320 के लिए PCL5 ड्राइवर प्रदान किया है - लेकिन यह काम नहीं किया।

जब स्थापित करने की कोशिश की जा रही है, तो अनजाने में त्रुटियां जारी की गईं, जिसमें से गुगली पाई गई

मैं जैसा हूं वैसा ही गरीब साथी।



मंच पर एक टिप्पणी विशेष रूप से मुस्कुराई (मुझे याद नहीं है कि वास्तव में कहां है, लेकिन एचपी वेबसाइट पर मेरी राय में):

"HP1320 एक व्यावसायिक मॉडल है, इसलिए हम सप्ताहांत में फोन समर्थन प्रदान नहीं करते हैं।"



वैसे, स्कैमर सभी दरारें जैसे तिलचट्टे में चढ़ते हैं: आप हमेशा "Google" और कोई भी डाउनलोड कर सकते हैं

किसी भी सिस्टम के लिए किसी भी प्रिंटर का ड्राइवर। लेकिन परिणाम, निश्चित रूप से, वह नहीं होगा जो अपेक्षित है।



इसके अलावा, "google" ने मेरे लिए एक और भयानक तथ्य का खुलासा किया: अब तक ज्ञात सर्वर ओएस में

कंपनियों को टर्मिनल मोड में प्रिंटिंग सबसिस्टम के साथ समस्या है। और थर्ड-पार्टी भी

समाधान समस्याओं को पूरी तरह से हल नहीं करते हैं।



"कोई और बकवास नहीं है," मैंने सोचा, और मैंने ऐसा किया:



1. मैंने www.bullzip.com से वर्चुअल फ्री पीडीएफ प्रिंटर डाउनलोड किया है। उनमें से कई (पीडीएफ प्रिंटर) हैं, बस मेरी पसंद निम्नलिखित कारणों से उस पर गिर गई:

क) यह एक 64 बिट सिस्टम के तहत काम करता है

बी) मुफ्त (सिद्धांत रूप में, यह ~ 20 रुपये देने के लिए कोई दया नहीं होगी, लेकिन उन्हें दूर करने के लिए नहीं

विंडोज 7 64x के साथ हर कंप्यूटर के लिए!)

ग) वह पहले पाया गया था :)

2. एक वर्चुअल पीडीएफ प्रिंटर स्थापित किया है और इसे कॉन्फ़िगर किया है (C: \ Program Files \ Bullzip \ PDF प्रिंटर \ gui.exe) ताकि उपयोगकर्ता को कोई संवाद बॉक्स न मिले, और .pdf फ़ाइल \\ compxp \ printer \ के फ़ोल्डर में बनाई गई है।

3. कंप्यूटर पर, कंपॉक्स ने फोक्सिट रीडर स्थापित किया, फ़ोल्डर प्रिंटर 1 को "साझा" किया और स्टार्टअप में एक सरल vbs- स्क्रिप्ट रखा:

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
    
    
    
    

स्क्रिप्ट के लिए, कृपया किक न करें - यह जल्दी से लिखा गया था और इसलिए इसने काम किया।



देखा:

उपयोगकर्ता प्रोग्राम में "प्रिंट" बटन दबाता है - और एक मिनट में प्रिंटर से दस्तावेज़ लेता है।

आप कई वर्चुअल प्रिंटर स्थापित कर सकते हैं और उन्हें मनमाने ढंग से कॉल कर सकते हैं। मुख्य बात यह है कि जब आप प्रिंटर का नाम बदलते हैं, तो सेटिंग्स को फिर से करने की आवश्यकता होती है।



इस तरह के निर्णय से अतिरिक्त लाभ:

विशेष रूप से पागल मालिकों के लिए, एक चालाक प्रशासन एक संपूर्ण लॉगिंग सिस्टम ला सकता है

उन सभी चीज़ों की संग्रह के साथ छपाई जो श्रमिकों ने छापी।



PS जो लोग एडोब से नफरत करते हैं, वे बुलज़िप का एक गुच्छा बना सकते हैं-> बीएमपी (जेपीजी) -> इरफान - लेकिन लैंडस्केप ओरिएंटेशन के साथ समस्याएं होंगी (यह स्क्रिप्ट में ओरिएंटेशन निर्धारित करने के लिए आवश्यक होगा)।