|
|
|
Как отследить окончание печати файла ?
|
|||
|---|---|---|---|
|
#18+
Произвожу печать файла с помощью ShellExecute. Мне надо дождаться выполнения процесса печати. Как это отследить ? Public Sub PrintFile(strFileName As String) Dim intRes As Integer intRes = ShellExecute(Form1.hwnd, "Print", strFileName, 0, 0, -1) End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.12.2005, 18:54:33 |
|
||
|
Как отследить окончание печати файла ?
|
|||
|---|---|---|---|
|
#18+
Уточняю вопрос: Для печати на принтере, который не является принтером по умолчанию. Произвожу установку его принтером по умолчанию, направляю на печать, а затем возвращаю прежний принтер по умолчанию. Все работает, за исключением того, что при направлении на печать, если не ставить после этого паузу несколько секунд, происходит печать на старом принтере по умолчанию. Необходимо отследить, что процесс печати закончился, а потом менять состояние принтера по умолчанию. Как сделать ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.12.2005, 11:27:44 |
|
||
|
|
start [/forum/topic.php?fid=60&gotonew=1&tid=2166646]: |
0ms |
get settings: |
6ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
190ms |
get topic data: |
8ms |
get first new msg: |
5ms |
get forum data: |
2ms |
get page messages: |
29ms |
get tp. blocked users: |
1ms |
| others: | 193ms |
| total: | 453ms |
| 0 / 0 |
