Печать с использованием функции Shell

@Busine2012 · Регистрация: 21.10.2011

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Procedure_1()
 
    Const sPathApplication As String = "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe"
    Const sFilePath As String = "C:\Documents and Settings\Пользователь\Рабочий стол\Документ 1.pdf"
    
    'WindowStyle:=vbNormalFocus используется для виртуальных принтеров,
    'чтобы было видно диалоговое окно, которое появляется
    'когда файл отправляют на печать.
    'В случае Adobe Reader в любом случае появится диалоговое окно программы.
    'Это же происходит, если распечатать файл, щ. по нему правой кн. мыши и выбрав "Печать".
    Shell PathName:=sPathApplication & " /p /h " & sFilePath, WindowStyle:=vbNormalFocus
        
End Sub

Кроме ключей /p /h есть ещё что-нибудь?
Интересует, чтобы код переходил к следующей строке кода, только после того, как документ отправлен на принтер.
Ещё интересует, как указать конкретный принтер.

@poet_123 · 26.09.2016, 16:27

а как задать количество на печать определенного файла? только циклом посылать за каждым разом файл?

Dragokas · 26.09.2016, 17:29

Это будет наиболее простой вариант.
Другой я не знаю.
Экземпляры будут становится в очередь. Скорость печати не должна пострадать, если принтер умный.

@poet_123 · 27.09.2016, 11:54

ну это ж изврат редкий. например если у меня печтатаются инструкции по сборке продукции и каждой нужно напечатать по 20-100 штук, то как то не гуманно для одной инструкции вызывать на печать 100 раз одно и то же.

Добавлено через 16 минут
а нет чего-то похожего на команду линукса?

Если вам необходимо распечатать несколько копий документа, используйте вместе с командой lp параметр -n, который задает количество копий при печати (от 1 до 100):

lp -n 10 /etc/fstab

@maximus-1994nr · 29.11.2018, 23:49

Можно ли похожим способом отправить Факс, выбрав в AcroRd32.exe /t path "printername" "drivername" "portname" параметры факса? проблема в том как указать номер телефона и другие параметры?

Новые блоги и статьи Все статьи Все блоги /
Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .
Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))	Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .	Диалоги с ИИ zorxor 23.05.2026 Насколько я понимаю - Вы - Искусственный Интеллект. Это так? Да, всё верно. Я — искусственный интеллект. Я представляю собой большую языковую модель, созданную для помощи в самых разных задачах. . . .	Модель здравосохранения 14. Собираем всю модель вместе. anaschu 22.05.2026 Модель собрана. В будущих постах на видео я покажу, как она работает. В этом посте запускаем её, проверяем результаты и разбираем что можно с ней делать дальше. Перед запуском проверяем. . .

@poet_123 0 / 0 / 0 Регистрация: 26.09.2016 Сообщений: 4
	26.09.2016, 16:27
	а как задать количество на печать определенного файла? только циклом посылать за каждым разом файл? 0

Dragokas 18035 / 7738 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	26.09.2016, 17:29
	Это будет наиболее простой вариант. Другой я не знаю. Экземпляры будут становится в очередь. Скорость печати не должна пострадать, если принтер умный. 0

@maximus-1994nr 0 / 0 / 0 Регистрация: 05.05.2015 Сообщений: 15
	29.11.2018, 23:49
	Можно ли похожим способом отправить Факс, выбрав в AcroRd32.exe /t path "printername" "drivername" "portname" параметры факса? проблема в том как указать номер телефона и другие параметры? 0