#Requires -Version 5.1
<#
    JbTecWiz Support Centre -- generated fix script

    Fault : Printing from Office fails, prints blank, or goes to the wrong printer
    Fix   : Clear the print queue and restart the spooler
    Source: https://jbtecwiz.com/support/win-office-printing

    Run as     : PowerShell as administrator
    Expect     : 15 minutes
    Risk       : medium
    Reversible : NO -- read the undo note below before running

    WHEN THIS IS THE RIGHT FIX
    Nothing prints from any application, or a job is stuck and will not
    delete. Note that this discards every queued job on the machine, for
    every user.

    HOW TO UNDO IT
    Cleared jobs cannot be recovered and have to be printed again. Nothing
    else here persists.

    This script walks the fix one step at a time and asks before each
    one. Steps with no command are things you do yourself -- it prints
    those and waits. Run with -DryRun to print without executing.
#>

[CmdletBinding()]
param(
    # Print every step and command without running anything.
    [switch]$DryRun,
    # Do not ask before each step. Read the script first if you use this.
    [switch]$Unattended
)

$ErrorActionPreference = 'Stop'
$script:Failed = 0

# This fix is documented as needing an elevated session.
$id = [Security.Principal.WindowsIdentity]::GetCurrent()
if (-not (New-Object Security.Principal.WindowsPrincipal $id).IsInRole(
        [Security.Principal.WindowsBuiltInRole]::Administrator)) {
    Write-Host ''
    Write-Host '  This fix needs an elevated PowerShell.' -ForegroundColor Yellow
    Write-Host '  Close this window, right-click PowerShell, Run as administrator,'
    Write-Host '  and run the script again.'
    Write-Host ''
    exit 3
}

function Write-Rule { param([string]$Text)
    Write-Host ''
    Write-Host ('-' * 70) -ForegroundColor DarkGray
    if ($Text) { Write-Host $Text -ForegroundColor Cyan }
}

function Show-Prose { param([string]$Text, [string]$Colour = "Gray")
    if (-not $Text) { return }
    $words = $Text -split "\s+"; $line = "  "
    foreach ($w in $words) {
        if (($line.Length + $w.Length) -gt 74) { Write-Host $line -ForegroundColor $Colour; $line = "  " }
        $line += "$w "
    }
    if ($line.Trim()) { Write-Host $line -ForegroundColor $Colour }
}

function Invoke-Step {
    param(
        [int]$Number, [string]$Do, [string]$Why,
        [scriptblock]$Command, [switch]$Manual, [string]$Shell = "powershell"
    )
    Write-Rule "  Step $Number of 5"
    Show-Prose $Do "White"
    if ($Why) { Write-Host ""; Show-Prose $Why "DarkGray" }

    if ($Manual) {
        Write-Host ''
        Write-Host '  -> Do this yourself, then press Enter to carry on.' -ForegroundColor Yellow
        if (-not $Unattended -and -not $DryRun) { [void](Read-Host) }
        return
    }

    Write-Host ''
    foreach ($l in ($Command.ToString().Trim() -split "`n")) {
        Write-Host ("    " + $l.Trim()) -ForegroundColor Green
    }
    Write-Host ''

    if ($DryRun) { Write-Host "  (dry run -- not executed)" -ForegroundColor DarkGray; return }
    if (-not $Unattended) {
        $a = Read-Host "  Run this step? [Y]es / [S]kip / [Q]uit"
        if ($a -match "^[Qq]") { Write-Host "  Stopped at your request."; exit 0 }
        if ($a -match "^[Ss]") { Write-Host "  Skipped." -ForegroundColor DarkGray; return }
    }
    try { & $Command }
    catch {
        $script:Failed++
        Write-Host ("  Step $Number failed: " + $_.Exception.Message) -ForegroundColor Red
        Show-Prose "The rest of the fix may depend on this. Read the write-up before carrying on." "Red"
        if (-not $Unattended) {
            $c = Read-Host "  Carry on anyway? [y/N]"
            if ($c -notmatch "^[Yy]") { exit 1 }
        }
    }
}

Write-Rule
Write-Host '  Printing from Office fails, prints blank, or goes to the wrong printer' -ForegroundColor White
Write-Host '  Clear the print queue and restart the spooler' -ForegroundColor Cyan
Write-Host ''
Write-Host '  Risk: medium   NOT REVERSIBLE   15 minutes' -ForegroundColor Yellow
Write-Host ''
Show-Prose 'Undo: Cleared jobs cannot be recovered and have to be printed again. Nothing else here persists.' 'Yellow'
Write-Rule

if (-not $Unattended -and -not $DryRun) {
    $go = Read-Host '  Ready? [y/N]'
    if ($go -notmatch "^[Yy]") { Write-Host "  Nothing was changed."; exit 0 }
}

Invoke-Step -Number 1 -Do 'Look at what is queued before clearing it, so you know what will be lost.' -Command {
    Get-Printer | ForEach-Object { Get-PrintJob -PrinterName $_.Name -ErrorAction SilentlyContinue } | Select-Object PrinterName, Id, DocumentName, SubmittedTime, JobStatus
}

Invoke-Step -Number 2 -Do 'Stop the spooler.' -Command {
    Stop-Service Spooler -Force
}

Invoke-Step -Number 3 -Do 'Empty the spool folder.' -Why 'A job that cannot be rendered sits here and blocks everything behind it, and it cannot be deleted through the print queue window because the spooler has it open. Stopping the service is what releases it.' -Command {
    Remove-Item "$env:SystemRoot\System32\spool\PRINTERS\*" -Force -ErrorAction SilentlyContinue
}

Invoke-Step -Number 4 -Do 'Start the spooler again.' -Command {
    Start-Service Spooler
}

Invoke-Step -Number 5 -Do 'Reprint. If the same document jams the queue again, the document or its driver is the problem -- go to the driver fix below.' -Manual

Write-Rule "  Confirm it worked"
Show-Prose 'The spooler is running, the queue is empty, and a test page prints.' 'White'
Write-Host ''
if (-not $DryRun) {
    Get-Service Spooler | Select-Object Status
}

Write-Rule
if ($script:Failed -gt 0) {
    Write-Host ("  Finished with " + $script:Failed + " failed step(s).") -ForegroundColor Yellow
    Show-Prose 'Read the full write-up at https://jbtecwiz.com/support/win-office-printing' 'Yellow'
} else {
    Write-Host '  Finished.' -ForegroundColor Green
}
Write-Host ''
Show-Prose 'To undo: Cleared jobs cannot be recovered and have to be printed again. Nothing else here persists.' 'DarkGray'
Write-Rule