function Set-DefaultPrinter {

<#

[CmdletBinding()]

param (

# Name of the printer to set as your default. Provides tab-autocomplete with names of installed printers.

# The way this handles printer names with spaces in them feels sloppy, but works. Got any better ideas for me?

[Parameter()]

[ArgumentCompleter( {

param ( $CommandName, $ParameterName, $WordToComplete, $CommandAst, $FakeBoundParameters )

[array]$Script:PrinterNames = "'$((Get-Printer).Name -join "','")'" -split ','

$Script:PrinterNames

}

)]

[ValidateScript({

if ("'" + $_ + "'" -in $Script:PrinterNames) {

$true

}

else {

throw "`n$_ is not a valid printer name. Please use one of the following: $($Script:PrinterNames -join ', ')"

}

})]

[string]

$PrinterName

)

if (-not $PSBoundParameters.ContainsValue($PrinterName)) {

Get-Printer

Write-Host "`nNo printer name was specified, so here is a list of installed printers." -ForegroundColor Green -BackgroundColor Black

return

}

$UnquotedPrinter = $PrinterName -replace "'",""

$Printer = Get-CimInstance -Class Win32_Printer -Filter "Name=`'$UnquotedPrinter`'"

# SetDefaultPrinter if the specified printer name is found

if ($Printer) {

Invoke-CimMethod -InputObject $Printer -MethodName SetDefaultPrinter

}

else {

Write-Host "No printer with the name '$UnquotedPrinter' was found." -ForegroundColor Yellow -BackgroundColor Black

}

}