[Iska]

DJIOAN, появление файла не означает начала печати, а лишь начало постановки в очередь. Впрочем…

На WSH:

Скрытый текст

Код:

Option Explicit

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemSink


strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
Set objSWbemSink       = WScript.CreateObject("WbemScripting.SWbemSink","Sink_")

objSWbemServicesEx.ExecNotificationQueryAsync objSWbemSink, _
	"SELECT * FROM __InstanceOperationEvent WITHIN 1 " & _
	"WHERE TargetInstance ISA 'Win32_PrintJob'"

WScript.Echo "Waiting for print job..."

Do
	WScript.Sleep 100
Loop

objSWbemSink.Cancel

Set objSWbemSink       = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub Sink_OnObjectReady(objSWbemObject, objSWbemAsyncContext)
	With objSWbemObject
		'WScript.Echo Now(), vbTab, .Path_.Class, vbTab, .TargetInstance.Name, vbTab, .TargetInstance.Owner, vbTab, .TargetInstance.TotalPages
		
		Select Case .Path_.Class
			Case "__InstanceCreationEvent"
				With WScript.CreateObject("SAPI.SpVoice")
					.Volume = 100
					.Rate = 2
					
					.Speak "Print job started!"
				End With
			Case "__InstanceDeletionEvent"
				With WScript.CreateObject("SAPI.SpVoice")
					.Volume = 100
					.Rate = 2
					
					.Speak "Print job finished!"
				End With
			Case Else
				' Nothing to do
		End Select
	End With
End Sub
'=============================================================================

Если у Вас установлен русский движок — можете попробовать и русский текст.