Public Function GetPrinterStatus(sPrinterName As String, sPrinterStatus As String)
    '============================================================================
    '<Function>
    '   GetPrinterStatus - Функция получения состояния принтера
    '</Function>
    '<IN>
    '   sPrinterName - Наименование принтера
    '</IN>
    '<OUT>
    '   PrintShablon - Признак OK(0) или нет (1)
    '   sPrinterStatus - Наименование состояния принтера
    '</OUT>
    '============================================================================

    Dim lret As Long
    Dim pDef As PRINTER_DEFAULTS
    Dim mhPrinter
    Dim SizeNeeded As Long
    Dim buffer() As Long
    Dim mPRINTER_INFO_2 As PRINTER_INFO_2, mPrinter_Status As Printer_Status
    Dim mElement
    
    GetPrinterStatus =  0 
    sPrinterStatus = ""
    
    'Открываем принтер
    lret = OpenPrinter(sPrinterName, mhPrinter, pDef)
    
    'Формируем массив данных
    ReDim Preserve buffer( 0  To  1 ) As Long
    lret = GetPrinterApi(mhPrinter, Index, buffer( 0 ), UBound(buffer), SizeNeeded)
    
    ReDim Preserve buffer( 0  To (SizeNeeded /  4 ) +  3 ) As Long
    lret = GetPrinterApi(mhPrinter, Index, buffer( 0 ), UBound(buffer) *  4 , SizeNeeded)


    'По полученному массиву формируем структуру
    With mPRINTER_INFO_2 '\\ Эта переменная типа PRINTER_INFO_2
       .pServerName = StringFromPointer(buffer( 0 ),  1024 )
       .pPrinterName = StringFromPointer(buffer( 1 ),  1024 )
       .pShareName = StringFromPointer(buffer( 2 ),  1024 )
       .pPortName = StringFromPointer(buffer( 3 ),  1024 )
       .pDriverName = StringFromPointer(buffer( 4 ),  1024 )
       .pComment = StringFromPointer(buffer( 5 ),  1024 )
       .pLocation = StringFromPointer(buffer( 6 ),  1024 )
       .pDevMode = buffer( 7 )
       .pSepFile = StringFromPointer(buffer( 8 ),  1024 )
       .pPrintProcessor = StringFromPointer(buffer( 9 ),  1024 )
       .pDatatype = StringFromPointer(buffer( 10 ),  1024 )
       .pParameters = StringFromPointer(buffer( 11 ),  1024 )
       .pSecurityDescriptor = buffer( 12 )
       .Attributes = buffer( 13 )
       .Priority = buffer( 14 )
       .DefaultPriority = buffer( 15 )
       .StartTime = buffer( 16 )
       .UntilTime = buffer( 17 )
       .Status = buffer( 18 )
       .JobsCount = buffer( 19 )
       .AveragePPM = buffer( 20 )
    End With

    'Закрываем принтер
    ClosePrinter mhPrinter
   
    mPrinter_Status = mPRINTER_INFO_2.Status

   sPrinterStatus = mPrinter_Status

   If mPRINTER_INFO_2.Status<> 0  Then GetPrinterStatus =  1 

End Function