Контроль принтеров. Вот задачка!?

@danhost · Регистрация: 30.09.2006

Студворк — интернет-сервис помощи студентам

У нас в конторе три принтера, и боссы очень строго
относятся к расходу бумаги. Ну вот я и решил сделать что-то на подобие проги для контроля спуллинга на принтера.
Начал использовать API, опрашиваю принтера, через функцию EnumJobs получаю задания на печать. Делаю это все по таймеру.
У кого был опыт по таким делам или по юзанию таких апишных функций?
Спасибо за любой совет!

@Alexey · 03.06.2007, 12:24

Посмотри вот этот пример, там используется EnumPrinters и PRINTER_INFO_2 для того чтобы получить статус принтера и статус его текущих задач.

http://www.relib.com/code.asp?id=155

@danhost · 03.06.2007, 12:46 **[ТС]**

Да это мы сделали уже. Проблема в том , что не могу правильно определить формат бумаги из задания, выдает то другие форматы!

retval = EnumJobs(Hprinter, 0, 100, 2, arraybuf(0), needed, needed, numitems)
' ïðîñì&icirc ;òð çàäàí&e grave;é íà ïå÷àò&uu ml;================
lendivfour = Len(jobinfo) / 4 ' íîìåð ýëåìå&iac ute;òîâ äëÿ êàæäî&eacu te; ñòðóê&ogr ave;óðû â ìàññè âå
For c = 0 To numitems - 1 ' öèêë

jobinfo.JobId = arraybuf(lendivfour * c) ' ïåðâû&eacu te; ýëåìå&iac ute;ò â ìàññè âå
jobinfo.pUserName = Space(lstrlen(arraybuf(lendivfour * c + 3))) '÷åòâå&e th;òûé ýëåìå&iac ute;ò
retval = lstrcpy(jobinfo.pUserName, arraybuf(lendivfour * c + 3))
CopyMemory jobinfo.pDevMode, arraybuf(lendivfour * c + 10), Len(jobinfo.pDevMode) ' ñòðóê&ogr ave;óðà DevMode ' âîò çäåñü áåðó ôîðìà&ogra ve; òî
jobinfo.TotalPages = arraybuf(lendivfour * c + 18) ' nineteenth element
CopyMemory jobinfo.Submitted, arraybuf(lendivfour * c + 20), Len(jobinfo.Submitted) ' 21 ýëåìå&iac ute;ò
jobinfo.Status = arraybuf(lendivfour * c + 13)
' èíôî ïî çàäàí&e grave;ÿì íà listview íà ôîðìå====== ===========

Set itmReport = Form1.lstvReport.ListItems.Add(, , jobinfo.JobId)
itmReport.SubItems(1) = jobinfo.pUserName
itmReport.SubItems(2) = jobinfo.TotalPages
itmReport.SubItems(3) = jobinfo.pDevMode.dmPaperSize
itmReport.SubItems(4) = jobinfo.Submitted.wHour & ':' & jobinfo.Submitted.wMinute & _
':' & jobinfo.Submitted.wSecond & ' GMT'
Select Case jobinfo.Status
Case JOB_STATUS_SPOOLING
itmReport.SubItems(5) = 'èäåò ñïóëë&egrav e;íã...'
Case JOB_STATUS_PRINTING
itmReport.SubItems(5) = 'èäåò ïå÷àò&uu ml;...'
Case JOB_STATUS_PAUSED
itmReport.SubItems(5) = 'ïàóçà. ..'
Case JOB_STATUS_DELETED
itmReport.SubItems(5) = 'çàäàí& egrave;å

@Alexey · 03.06.2007, 12:53

ты чего такое послал?

@danhost · 03.06.2007, 13:13 **[ТС]**

Пардон! Хотел послать кусок своего кода, да поспешил. Не могу разобраться с типом DEVMODE,
откуда беру формат бумаги

@Alexey · 03.06.2007, 13:31

Посмотри здесь:
http://www.vbapi.com/ref/d/devmode.html

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269

	Контроль принтеров. Вот задачка!? 03.06.2007, 10:50. Показов 1230. Ответов 5 Метки нет (Все метки) У нас в конторе три принтера, и боссы очень строго относятся к расходу бумаги. Ну вот я и решил сделать что-то на подобие проги для контроля спуллинга на принтера. Начал использовать API, опрашиваю принтера, через функцию EnumJobs получаю задания на печать. Делаю это все по таймеру. У кого был опыт по таким делам или по юзанию таких апишных функций? Спасибо за любой совет! 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	03.06.2007, 12:24
	Посмотри вот этот пример, там используется EnumPrinters и PRINTER_INFO_2 для того чтобы получить статус принтера и статус его текущих задач. http://www.relib.com/code.asp?id=155 0

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269
	03.06.2007, 12:46 [ТС]
	Да это мы сделали уже. Проблема в том , что не могу правильно определить формат бумаги из задания, выдает то другие форматы! retval = EnumJobs(Hprinter, 0, 100, 2, arraybuf(0), needed, needed, numitems) ' ïðîñì&icirc ;òð çàäàí&e grave;é íà ïå÷àò&uu ml;================ lendivfour = Len(jobinfo) / 4 ' íîìåð ýëåìå&iac ute;òîâ äëÿ êàæäî&eacu te; ñòðóê&ogr ave;óðû â ìàññè âå For c = 0 To numitems - 1 ' öèêë jobinfo.JobId = arraybuf(lendivfour * c) ' ïåðâû&eacu te; ýëåìå&iac ute;ò â ìàññè âå jobinfo.pUserName = Space(lstrlen(arraybuf(lendivfour * c + 3))) '÷åòâå&e th;òûé ýëåìå&iac ute;ò retval = lstrcpy(jobinfo.pUserName, arraybuf(lendivfour * c + 3)) CopyMemory jobinfo.pDevMode, arraybuf(lendivfour * c + 10), Len(jobinfo.pDevMode) ' ñòðóê&ogr ave;óðà DevMode ' âîò çäåñü áåðó ôîðìà&ogra ve; òî jobinfo.TotalPages = arraybuf(lendivfour * c + 18) ' nineteenth element CopyMemory jobinfo.Submitted, arraybuf(lendivfour * c + 20), Len(jobinfo.Submitted) ' 21 ýëåìå&iac ute;ò jobinfo.Status = arraybuf(lendivfour * c + 13) ' èíôî ïî çàäàí&e grave;ÿì íà listview íà ôîðìå====== =========== Set itmReport = Form1.lstvReport.ListItems.Add(, , jobinfo.JobId) itmReport.SubItems(1) = jobinfo.pUserName itmReport.SubItems(2) = jobinfo.TotalPages itmReport.SubItems(3) = jobinfo.pDevMode.dmPaperSize itmReport.SubItems(4) = jobinfo.Submitted.wHour & ':' & jobinfo.Submitted.wMinute & _ ':' & jobinfo.Submitted.wSecond & ' GMT' Select Case jobinfo.Status Case JOB_STATUS_SPOOLING itmReport.SubItems(5) = 'èäåò ñïóëë&egrav e;íã...' Case JOB_STATUS_PRINTING itmReport.SubItems(5) = 'èäåò ïå÷àò&uu ml;...' Case JOB_STATUS_PAUSED itmReport.SubItems(5) = 'ïàóçà. ..' Case JOB_STATUS_DELETED itmReport.SubItems(5) = 'çàäàí& egrave;å 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	03.06.2007, 12:53
	ты чего такое послал? 0

@danhost 0 / 0 / 1 Регистрация: 30.09.2006 Сообщений: 269
	03.06.2007, 13:13 [ТС]
	Пардон! Хотел послать кусок своего кода, да поспешил. Не могу разобраться с типом DEVMODE, откуда беру формат бумаги 0

@Alexey 0 / 1 / 3 Регистрация: 27.03.2012
	03.06.2007, 13:31
	Посмотри здесь: http://www.vbapi.com/ref/d/devmode.html 0

Опции темы