How to traverse list of printers and get the paper sizes available

PrintoBarfo.vb

Public Sub investigatePrinterPaperSizeSituation()
    Dim printerList As PrinterSettings.StringCollection = PrinterSettings.InstalledPrinters()
    For Each printer As String In printerList
        _logger.logInfo("found printer: " & printer)
        Dim settings As PrinterSettings = new PrinterSettings()

        '' So...., check this out:
        settings.PrinterName = printer
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '' Apparently PrinterSettings is stateful in such a way that by
        '' assigning the name of the printer we care about, the subsequent
        '' member function calls will return info about *that* printer.
        '' 🤔🤯, 🥴🤢🤮
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

        For Each paperSize As PaperSize In settings.PaperSizes()
            _logger.logInfo("  : " & paperSize.PaperName)
        Next
    Next
End Sub