Sub FindPdfPrinter As ResumableSub
Dim shl As Shell
shl.Initialize("shl", "wmic", Array("printer", "get", "Name"))
shl.Run(-1)
Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success Then
For Each line As String In Regex.Split("[\r\n]+", StdOut)
If line.ToLowerCase.Contains("pdf") Then Return line.Trim
Next
End If
Return ""
End Sub