Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: 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
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.