Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.95/19: Рейтинг темы: голосов - 19, средняя оценка - 4.95
0 / 0 / 1
Регистрация: 16.08.2007
Сообщений: 271
1

Как получить список принтеров и очистить очередь печати выбранного принтера?

04.09.2006, 21:40. Показов 3393. Ответов 2
Метки нет (Все метки)

Как получить список принтеров и очистить очередь печати выбранного принтера?



Вторая часть "Очистить очередь печати" приоритетнее, хотелось бы узнать как обнулить очередь печати. Это та самая функция которая доступна в виндовсе при клике на принтер. Как это сделать програмно.



Зачем? нужно для корректной работы и отладки сервера.



Может есть идеи или варианты на VBS - это тоже более чем приемлимо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.09.2006, 21:40
Ответы с готовыми решениями:

как очистить очередь печати
собственно сабж. желательно без прав администратора. спасибо

Разработать приложение, имитирующее очередь печати принтера
Разработать приложение, имитирующее очередь печати принтера. Должны быть клиенты, посылающие...

Как на PHP получить список принтеров, подключенных к данному компу?
Может PJL? Только я не знаю как его с PHP использовать.

Получить список принтеров (C#)
Привет всем!!! У меня сложилась определеная проблема. Нада отправить текстовый файлик на печать...

__________________
2
5 / 5 / 3
Регистрация: 17.10.2007
Сообщений: 1,119
05.09.2006, 20:46 2
Для отмены очереди, что-то в этом роде?
В модуле:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Explicit
Public Const STNDRD_RIGHTS_RQRD = &HF0000
Public Const PRNTR_ACCSS_ADMIN = &H4
Public Const PRNTR_ACCSS_USE = &H8
Public Const PRNTR_ALL_ACCSS = STNDRD_RIGHTS_RQRD Or PRNTR_ACCSS_ADMIN Or PRNTR_ACCSS_USE
Public Const PRNTR_CNTRL_PAUSE = 1
Public Const PRNTR_CNTRL_RESUME = 2
Public Const PRNTR_CNTRL_PURGE = 3
Public Const NULL_PTR = 0&
Public Type PRNTR_DFLTS 'pdf
    DataType As Long
    DevMode As Long
    DsrdAccess As Long
End Type
Public Declare Function OpenPrinter1 Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRNTR_DFLTS) As Long
Public Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Any, ByVal Command As Long) As Long
Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Public Enum ePrinterControl 'epc
    PrntrCntrlPause = PRNTR_CNTRL_PAUSE
    PrinterControlPurge = PRNTR_CNTRL_PURGE
    PrinterControlResume = PRNTR_CNTRL_RESUME
End Enum
Public Function SetPrntrStts(ByVal pstrPrntrName As String, ByVal pepcPrntrCntrl As ePrinterControl) As Boolean
    
    Dim pdfMyDflts As PRNTR_DFLTS
    Dim lngPrntrHandle As Long
    Dim lngReturn As Long
    Dim blnReturn As Boolean
        
    pdfMyDflts.DsrdAccess = PRNTR_ALL_ACCSS
    lngReturn = OpenPrinter1(pstrPrntrName, lngPrntrHandle, pdfMyDflts)
    blnReturn = lngReturn = 0 Or lngPrntrHandle = 0 '  Не смог открыть принтер если blnReturn=False
    
    If blnReturn Then
        blnReturn = SetPrinter(lngPrntrHandle, NULL_PTR, ByVal NULL_PTR, pepcPrntrCntrl) <> 0  'Выставить статус принтера
    End If
    If blnReturn Then
        If Not lngPrntrHandle = 0 Then
            ClosePrinter lngPrntrHandle
        End If
    End If
    
    SetPrntrStts = blnReturn
    
End Function
В форме:
Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
    If Not SetPrntrStts("My Printer", PrinterControlPurge) Then
        MsgBox "Не смог очистить очередь"
    End If
End Sub
0
0 / 0 / 1
Регистрация: 16.08.2007
Сообщений: 271
13.09.2006, 21:05  [ТС] 3
Оки. работает!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.09.2006, 21:05

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Получить список принтеров
Подскажите пожалуйста как получить вручную список принтеров чтобы вывести их на экран. Гугл пока ни...

Получить список доступных принтеров
Печатаю форму методом UserForm.PrintForm Подскажите, пожалуйста, как: 1. Получить список...

Получить список принтеров с принт-сервера
Возможно ли получить список принтеров,их ip адрес, которые находиться на принтсервере? вывести в...

Получить список принтеров, установленных на удалённом компьютере
Здравствуйте. Нужно вывести на экран список установленных принтеров с удалённого компьютера,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.