프린터 대기 삭제

프린트 쓰다가 한번씩 꼬일떄 있죠 ..cmd ..파일 ..집앞에 큰나무 님  감사드립니다 ..^^

이놈은 5번에 넣고 테스트 해보겠읍니다.

수고 많으셨읍니다^^

감사합니다

수고 많으십니다

기존에 대기열 삭제프로그램이 있는데

이것도 따로 테스트를 해 보겠습니다.

아마도 월요일 이후나 테스트 가능할 것으로 여겨집니다

꼭 필요할 경우가 있는 도구입니다.

대기열에 오류가 있는 목록이 있을 경우 연속적인 인쇄 에러가 발생하곤 합니다.

대기열 제거시에도 잘 제거되지 않거나 해당 프린터의 연결을 차단한 후에야 겨우 목록이 삭제되는 등의 곤란을 겪을 수 있는데

이 경우 매우 유용한 도구가 될 것 같습니다.

감사합니다. 큰나무님^^

한번씩 꼬이게 되면 짜증날 때가 있습니다.

이제 짜증이 사라지겠네요. 감사합니다.

수고하셨습니다

유사시 필요한 거라서 저장해봅니다.

감사합니다.

감사합니다 수고하십시요

한번씩 필요할때 유용하겠네요.

수고많으셨습니다.

컴수리점 폐업한지 4년 되어 가네요.

제가 사용하던 유틸들 입니다.

DefPrinterTest.vbs는 기본프린터로 테스트페이지 인쇄합니다. (win10 에서 작동)

'--------------
If WScript.Arguments.length =0 Then
  Set objShell = CreateObject("Shell.Application")
  objShell.ShellExecute "wscript.exe", Chr(34) & _
  WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else
'--------------
'On Error Resume Next

Dim objWMIService, colProcessList, objShell, objFSO, outFile
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject") 
curDir = objfso.GetParentFolderName(WScript.ScriptFullName) 
Set outFile = objFSO.CreateTextFile(curDir & "\DefPRNprint.cmd", True)

outFile.WriteLine "@echo off"
outFile.WriteLine "pushd %~dp0"
outFile.WriteLine "setlocal"
outFile.WriteLine "for /f ""tokens=2*"" %%a in ('reg query ""HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows"" /v Device') do (set DefPRN1=%%b)"
outFile.WriteLine "for /f ""tokens=1 delims=,"" %%a in (""%DefPRN1%"") do set DefPRN=%%a"
outFile.WriteLine "start RUNDLL32 PRINTUI.DLL,PrintUIEntry /k /n ""%DefPRN%"""
outFile.WriteLine "endlocal"
outFile.Close

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'UTIL.exe'")
For Each objProcess in colProcessList
 objProcess.Terminate()
Next
Set colInstalledPrinters =  objWMIService.ExecQuery _
 ("Select * from Win32_Printer Where Default = TRUE")

For Each objPrinter in colInstalledPrinters
x=msgbox("★ 기본 프린터 : " & objPrinter.Name & "  ★" +vbCrLf+ "" +vbCrLf+ "            [  테스트 페이지를 인쇄할까요?  ]", 4, "기본 프린터 확인 & 테스트 페이지 인쇄")
Next
If x = VbYes Then
objShell.Run chr(34) & curDir & "\DefPRNprint.cmd" & Chr(34), 0, True
objFSO.DeleteFile(curDir & "\DefPRNprint.cmd")
Else
objFSO.DeleteFile(curDir & "\DefPRNprint.cmd")
Wscript.Quit
End If
End If

'--------------

Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'UTIL.exe'")
For Each objProcess in colProcessList
 objProcess.Terminate()
Next

이 부분은 제가 사용하는 런쳐(UTIL.exe)프로세스를 정지시키는 겁니다.

지우고 사용하셔도 되고 그냥 놔둬도 실행엔 지장 없습니다.

printer.zip

감사합니다. ^ ^