VPF::информация о печатающемся документе

RomanVb

Дата 5.1.2007, 19:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 14.5.2006

Репутация: нет
Всего: нет

Нужно вывести информацию о печатающемся документе. Пользуюсь EnumJobs... по ходу в пятом параметре этой функции и хранятся эта информация или указзатель...
но как её получить?

Код


OpenPrinter Printer.DeviceName, hPrinter, ByVal 0&
EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned
If lNeeded > 0 Then
  ReDim byteJobsBuffer(lNeeded - 1) As Byte
  EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned
  If lReturned > 0 Then
      lJobCount = lReturned
  Else
      lJobCount = 0
  End If
Else
  lJobCount = 0
End If
ClosePrinter hPrinter

Заранее спасибо )

Это сообщение отредактировал(а) RomanVb - 5.1.2007, 19:30

Akina

Дата 6.1.2007, 00:04 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата

pJob
[out] Pointer to a buffer that receives an array of JOB_INFO_1 or JOB_INFO_2 structures. The buffer must be large enough to receive the array of structures and any strings or other data to which the structure members point.
To determine the required buffer size, call EnumJobs with cbBuf set to zero. EnumJobs fails, GetLastError returns ERROR_INSUFFICIENT_BUFFER, and the pcbNeeded parameter returns the size, in bytes, of the buffer required to hold the array of structures and their data.

MSDN рулез

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

RomanVb

Дата 6.1.2007, 17:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 14.5.2006

Репутация: нет
Всего: нет

Akina,
Ну да, да))
Только не знаю я, как это сделать (.
Dim Jobs(0 To 150) As JOB_INFO_1, TempBuff As Long
EnumJobs hPrinter, 0, 99, 1, TempBuff, lNeeded, lNeeded, lReturned
Call CopyMemory(Jobs(0), ByVal TempBuff, lNeeded)

cardinal

Дата 6.1.2007, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Модератор: RomanVb, пользуйтесь тегами "код"!

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

RomanVb

Дата 6.1.2007, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 14.5.2006

Репутация: нет
Всего: нет

После этого кода программа вылетает... Помогите разобраться, пожалуйста ))

RomanVb

Дата 8.1.2007, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 14.5.2006

Репутация: нет
Всего: нет

ап посту
я ничего не нашёл((

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »