[CDR 2018] Установить путь в диалоговом окне печати

lipatkin

Топикстартер
12 лет на форуме
Сообщения
410
Оценка реакций
89
Всех приветствую,
Есть макрос, который делает все необходимые настройки для печати, и вызывает диалоговое окно. Основная его задача, это задание области печати по выделенным объектам. В нем же задается путь куда печатать.
Код:
With ActiveDocument.PrintSettings
' остальные настройки
.FileName = namfile
End With
После запускается окно печати (ActiveDocument.PrintSettings.ShowDialog).
Как только нажимаю кнопку "Print", открывается диалоговое окно сохранения с путем последней печати. Т.е. задавать namfile имеет смысл, если ты печатаешь сразу (ActiveDocument.PrintOut) без диалогового окна печати (ActiveDocument.PrintSettings.ShowDialog).
Вопрос: можно как-то перехватить диалоговое окно сохранения, после нажатия кнопки "Print" и внести туда изменения — указать свой путь?
Screenshot.jpg
 

dastin

Некромант-любитель
10 лет на форуме
Сообщения
873
Оценка реакций
682
Последнее редактирование:

lipatkin

Топикстартер
12 лет на форуме
Сообщения
410
Оценка реакций
89
а сразу задать namfile с путём?
типа
.FileName = FilePath & "\" & namfile
в namfile указан весь путь. Но когда открываешь окно по кнопке "Print", то в нем открывается папка, куда ты последний раз печатал. А хотелось бы чтобы там открывалась папка которую я задал в переменной namfile
 

lipatkin

Топикстартер
12 лет на форуме
Сообщения
410
Оценка реакций
89
... и в строке "имя файла" пусто?
в последнем Кореле -- да, в старом(16) -- имя файла.
Насколько я понимаю, окно куда сохранить никак не связано с окном печати по параметрам. Поэтому как-то хотелось в него попасть и изменить параметры.
 
Последнее редактирование:

dastin

Некромант-любитель
10 лет на форуме
Сообщения
873
Оценка реакций
682
... а вот эти пути - они постоянные? - если например будет несколько типа "горячих папок" с возможностью выбора и их редактирования?
поясню ... есть готовый макрос для публикации пдф в несколько горячих папок РИПа ... подстричь его слегка
1562827347466.png1562827383747.png
имя он берет из файла и его можно дополнительно редактировать
вверху в комбобоксе выбирается один из путей (которые можно добавлять, удалять (см скрин2)) куда будет экспортироваться - а вашем случает PrintOut
 

dastin

Некромант-любитель
10 лет на форуме
Сообщения
873
Оценка реакций
682
sorry
/// перечитал ... т.е. Окно диалога печати вам необходимо для корректировки - без него никак
вопрос как быстро задать путь в виндовском окне сохранения

м.б. не мудрить и так
 

lipatkin

Топикстартер
12 лет на форуме
Сообщения
410
Оценка реакций
89
sorry
/// перечитал ... т.е. Окно диалога печати вам необходимо для корректировки - без него никак
вопрос как быстро задать путь в виндовском окне сохранения

м.б. не мудрить и так
"Горячие" не получится. Открытый файл находится в своей папке заказа и печать в нее надо же.
Сделал "хитровывернуто" '))':
Если галка PrintToFile стоит, то по кнопке "Print" открывается окно куда сохранить файл.
Если галка не стоит, то печатается в папку заказа.
Код:
If .ShowDialog Then
    If .PrintToFile Then
    .PrintOut
     Else
        .FileName = namfile
        .PrintToFile = True
        .FileMode = prnSingleFile
        .PrintOut
    End If
  End If