Форумы HiProg.com - MS ACCESS, VBA, VB

ник: silich
на нём лампочка зелёненькая должна загореться или надпись - рэди
ну или через принтерную апишную библятеку, например

Option Compare Database Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long Private Declare Function PrinterProperties Lib "winspool.drv" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long Public Function prnIsLoad()     Dim hPrinter As Long     OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&     'PrinterProperties Me.hwnd, hPrinter     prnIsLoad = (hPrinter <> 0)     ClosePrinter hPrinter End Function