Geekly Articles each Day
📜 ⬆️ ⬇️

Universal solution for printing on network printers under Windows 7 / Vista / 2003/2008

Very often there are problems with network printing to printers connected
for example, to a computer with Windows XP on a computer with Windows 7 installed, not on Vista 2003,2008

The essence of the problem often lies in the fact that, under these "modern" systems, manufacturers
“Obsolete” printer models do not bother to release drivers.

So I got this situation:
')
A friend asked to set up printing in the office from a freshly purchased laptop.

1. Of course - the laptop was running Windows 7
2. Of course - Home (see below for the problem)
3. Of course - it (the system) was 64-bit.
4. Of course - the printers in the office were not new: HP1320 and Canon MFxxxx
5. Of course - the printers were connected and “shared” on typewriters with WinXP.
6. And no one will change the structure of the network for the sake of one laptop.
How did I solve the problem?

At first I went the wrong way:
I downloaded and tried to install drivers from official sites - it was not there:
Canon has little for which models it supplies drivers for 64-bit systems.
About the MFP generally keep quiet.
For the MFxxxx series, the recommended crutch is to use drivers from the MF57xx series. I tried - the system
shows that the driver is signed, but refuse to install, referring to the fact that it is not signed.
Brr, nonsense. Installing unsigned firewood on Home will not allow (no gpedit.msc). Ugh.

HP seems to have provided the PCL5 driver for the HP1320 model - but it did not work.
When attempting to install, there were unintelligible errors, which Google found
the same poor thing as me.

I especially smiled at one comment on the forum (I don’t remember exactly where, but I think on the HP website):
“HP1320 is a business model, so we do not provide telephone support on weekends.”

By the way, fraudsters climb into all the cracks like cockroaches: you can always “google” and download ANY
driver of any printer for any system. But the result will certainly not be what is expected.

Also, "Google" has revealed to me one more terrible fact: TO THEIR VOR in server operating systems known
The company has problems with the printing subsystem in terminal mode. And even third-party
solutions do not solve problems completely.

“Enough of this nonsense” - I thought and did this:

1. Download virtual Free PDF Printer from www.bullzip.com . There are a lot of them (PDF-printers), just my choice fell on it for the following reasons:
a) this works under 64-bit systems
b) free (in principle, it would not be a pity to give and ~ 20 bucks, but not to give them away
for EVERY computer with Windows 7 64x!)
c) he was found first :)
2. Install a virtual PDF printer and configure it (C: \ Program Files \ Bullzip \ PDF Printer \ gui.exe) so that the user does not display any dialog boxes, and a .pdf file is created in the \ \ compxp \ printer1 \ folder
3. On the computer, compxp installed Foxit Reader “rassharil” printer1 daddy and put into the startup a simple 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


For the script, please do not kick - it was written quickly and to make it work.

Voila:
The user simply presses the “Print” button in the program — and after a minute takes the document out of the printer.
You can install multiple virtual printers and randomly name them. The main thing - when you rename the printer settings need to be made again.

Additional profit from such a decision:
For particularly paranoid bosses, a sly admin can navigate a whole logging system
printing with the archiving of all that printed workers.

PS Those who hate adobe can make a bunch of bullzip-> BMP (JPG) -> irfan - but there will be problems with landscape orientation (it will be necessary to determine the orientation in the script).

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

More articles:


All Articles