| |
|
|
| | ' открытие для просмотра
STR_1 = Shell(GLB_PATCH_Windows_System32 & "\notepad.exe " & STR_PATH_TALON, 1)
, а как сразу послать на печать? Кто знает? | |
| |
| |
| |
|
|
| | STR_1 = Shell(GLB_PATCH_Windows_System32 & "\notepad.exe /p " & STR_PATH_TALON, 1) | |
| |
| |
| |
|
|
| | Можно прямо на принтер
Sub directPrt()
Const ForWriting = 2
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("Lpt1", ForWriting, True)
f.Write "Первая строка пошла!!!" & vbCr
f.Close
End Sub | |
| |
| |
|
|
| |
|
|
| | Согласен. Тогда по имени. Где-то видел примеры. | |
| |
| |
| |
|
|
| | Спасибо!
принтер прямо на компе будет висеть.
================================
Добавляем параметр P - и аля улю? | |
| |
| |
| |
|
|
| | Чё то он в двух вариациях предстаёт.
и открывается и на печать. | |
| |
| |
| |
|
|
| | или это нормально.
Блин как же проверить... принтера то нет.  | |
| |
| |
| |
|
|
| | Принтера нет? Поставь виртуальный. | |
| |
| |
| |
|
|
| | виртуалный в pdf есть , но он диалоговое окно выводит всё время.
не знаю как поведёт себя реальный. | |
| |
| |
| |
|
|
| | Microsoft Office Document Image Writer | |
| |
| |
|
|
