Как получить список принтеров и очистить очередь печати выбранного принтера?

Option Explicit
Public Const STNDRD_RIGHTS_RQRD = &HF0000
Public Const PRNTR_ACCSS_ADMIN = &H4
Public Const PRNTR_ACCSS_USE = &H8
Public Const PRNTR_ALL_ACCSS = STNDRD_RIGHTS_RQRD Or PRNTR_ACCSS_ADMIN Or PRNTR_ACCSS_USE
Public Const PRNTR_CNTRL_PAUSE = 1
Public Const PRNTR_CNTRL_RESUME = 2
Public Const PRNTR_CNTRL_PURGE = 3
Public Const NULL_PTR = 0&
Public Type PRNTR_DFLTS 'pdf
    DataType As Long
    DevMode As Long
    DsrdAccess As Long
End Type
Public Declare Function OpenPrinter1 Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRNTR_DFLTS) As Long
Public Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal Command As Long) As Long
Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Public Enum ePrinterControl 'epc
    PrntrCntrlPause = PRNTR_CNTRL_PAUSE
    PrinterControlPurge = PRNTR_CNTRL_PURGE
    PrinterControlResume = PRNTR_CNTRL_RESUME
End Enum
Public Function SetPrntrStts(ByVal pstrPrntrName As String, ByVal pepcPrntrCntrl As ePrinterControl) As Boolean
    
    Dim pdfMyDflts As PRNTR_DFLTS
    Dim lngPrntrHandle As Long
    Dim lngReturn As Long
    Dim blnReturn As Boolean
        
    pdfMyDflts.DsrdAccess = PRNTR_ALL_ACCSS
    lngReturn = OpenPrinter1(pstrPrntrName, lngPrntrHandle, pdfMyDflts)
    blnReturn = lngReturn = 0 Or lngPrntrHandle = 0 '  Не смог открыть принтер если blnReturn=False
    
    If blnReturn Then
        blnReturn = SetPrinter(lngPrntrHandle, NULL_PTR, ByVal NULL_PTR, pepcPrntrCntrl) <> 0  'Выставить статус принтера
    End If
    If blnReturn Then
        If Not lngPrntrHandle = 0 Then
            ClosePrinter lngPrntrHandle
        End If
    End If
    
    SetPrntrStts = blnReturn
    
End Function

Private Sub Command1_Click()
    If Not SetPrntrStts("My Printer", PrinterControlPurge) Then
        MsgBox "Не смог очистить очередь"
    End If
End Sub