Фильтр и отправка на печать в виртуальный принтер

@logvin · Регистрация: 10.02.2011

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

Есть задача. автоматизировать печать документа MS Project с определенными фильтрами в файл pdf.

Сразу скажу, что в программировании я новичок.
вот мой код макроса

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
Sub КБНИР()
 
'Применение фильтров
FilterEdit Name:="Фильтр 3", TaskFilter:=True, _
Create:=True, OverwriteExisting:=True, FieldName:="Названия ресурсов", _
Test:="содержит", Value:="КБ НИР", ShowInMenu:=False, ShowSummaryTasks:=True
 
FilterEdit Name:="Фильтр 2", TaskFilter:=True, _
Create:=True, OverwriteExisting:=True, FieldName:="Название", _
Test:="не содержит", Value:="согласование номенклатуры", ShowInMenu:=False, ShowSummaryTasks:=True
   
FilterEdit Name:="Фильтр 1", TaskFilter:=True, _
Create:=True, OverwriteExisting:=True, FieldName:="% завершения", _
Test:="меньше", Value:="100", ShowInMenu:=False, ShowSummaryTasks:=True
FilterApply Name:="Фильтр 3", Name:="Фильтр 2", Name:="Фильтр 1"
'Отправка на печать
FilePageSetupPage Portrait:=False
FilePageSetupMargins Top:=0.5, Bottom:=0.5, Left:=0.5, Right:=0.5
FilePageSetupPage PercentScale:=95
FilePrintSetup "DoPdf v5"
FilePrint , , , , , , , , False, , False 
AppActivate "!Общий"
SendKeys "enter", True
 
End Sub

В нем я пытаюсь применить одновременно 3 фильтра, и отправить на печать на виртуальный принтер, приложения ""DoPdf"

Сталкиваюсь со следующими трудностями:

1) Фильтры сразу все не применяются, применяется только один. последний в строчке.
2) При печати на виртуальный принтер, появляется дополнительно окно программы "DoPdf", в котором выбирается адрес для сохранения pdf файла. Данное окно как бы активно, но на нажатие клавиш не реагирует, начинает реагировать если по нему предварительно кликнуть мышкой. В нем я предполагаю через команду "SendKeys" отправить несколько раз tab потом, ctrl+v (предварительно в макросе нужно взять в буфер нужную строку с адресом) и дальше еще раз tab и потом enter. Но данное окно не могу сделать активным, макрос его будто бы не воспринимает. AppActivate через заголовок окна "save PDF file" или через заголовок основного окна MS project "!Общий" на него не выходит. Если закрыть его руками, то дальше макрос передает клавишу уже в MS Project.

Вот такая засада. Буду благодарен за помощь.
Заранее спасибо!

@logvin · 11.02.2011, 15:00 **[ТС]**

так. По первому вопросу разобрался. я банально путал "автофильтр" и "фильтр"
но проблема с выводом на печать остается открытой

@Tigran · 15.06.2012, 17:24

У меня в VBA ни одна строчка не работает!

Как изменить принтер программно?

@mc-black · 15.06.2012, 17:52

У меня нет MS Project, проверьте есть ли такое свойство Application.ActivePrinter в проджекте, по крайней мере такое есть в Excel, отвечает за имя принтера, на который будет идти печать.

Добавлено через 51 секунду
Запись мароса во время выполнения печати на виртуальный принтер вам ничего не дает?

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@logvin 0 / 0 / 0 Регистрация: 10.02.2011 Сообщений: 5
	11.02.2011, 15:00 [ТС]
	так. По первому вопросу разобрался. я банально путал "автофильтр" и "фильтр" но проблема с выводом на печать остается открытой 0

@Tigran 1 / 1 / 0 Регистрация: 30.07.2011 Сообщений: 65
	15.06.2012, 17:24
	У меня в VBA ни одна строчка не работает! Как изменить принтер программно? 0

@mc-black 2786 / 718 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	15.06.2012, 17:52
	У меня нет MS Project, проверьте есть ли такое свойство Application.ActivePrinter в проджекте, по крайней мере такое есть в Excel, отвечает за имя принтера, на который будет идти печать. Добавлено через 51 секунду Запись мароса во время выполнения печати на виртуальный принтер вам ничего не дает? 0