changing Print Job Start Time & Job Priority

Changing Print Job Start Time

Uses ADSI to change the start time for all print jobs larger than 400K to 2 AM.

Set objPrinter = GetObject("WinNT://atl-dc-02/ArtDepartmentPrinter,printqueue")
For each objPrintQueue in objPrinter.PrintJobs
If objPrintQueue.Size > 400000 Then
    objPrintQueue.Put "StartTime" , TimeValue("2:00:00 AM")
    objPrintQueue.SetInfo
End If
Next

Changing Print Job Priority

Uses ADSI to change the priority of current print jobs based on the size of those print jobs.

Set objPrinter = GetObject("WinNT://atl-dc-02/ArtDepartmentPrinter, printqueue")
For each objPrintJob in objPrinter.PrintJobs
    If objPrintJob.Size > 400000 Then
        objPrintJob.Put "Priority" , 2
        objPrintJob.SetInfo
    Else
        objPrintJob.Put "Priority" , 3
        objPrintJob.SetInfo
    End If
Next