Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как открыть диалоговое окно выбора директории в DoCmd.OutputTo? / 5 сообщений из 5, страница 1 из 1
26.11.2021, 16:17
    #40115306
HB
HB
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?
Здравствуйте, уважаемые форумчане.
Для создания файла отчета в формате PDF использую
Код: vbnet
1.
2.
3.
Private Sub PrintReport_Click()
DoCmd.OutputTo acOutputReport, , acFormatPDF, "Отчет за " & [Data] & ".pdf", True
End Sub



Файл сохраняется по умолчанию в директорию "Мои документы", а затем открывается в Акробате.

Возможно ли как-то добавить появление диалогового окна для выбора директории, куда сохранять файл?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 16:34
    #40115319
aleks222
aleks222
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?
В скрижалях завета сказано

OutputFile Необязательный Variant Строковое выражение, являющееся полным именем (включая путь) файла, в который нужно вывести объект. Если не задать значение для этого аргумента, Access предложит указать имя выходного файла.
https://docs.microsoft.com/ru-ru/office/vba/api/access.docmd.outputto

Ну, дык,
1. Открой окно файлового диалога
2. Получи имя файла
3. Передай имя файла

И пребудет с тобой щастье.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 17:12
    #40115328
HB
HB
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?
aleks222OutputFile Необязательный Variant Строковое выражение, являющееся полным именем (включая путь) файла, в который нужно вывести объект. Если не задать значение для этого аргумента, Access предложит указать имя выходного файла.
https://docs.microsoft.com/ru-ru/office/vba/api/access.docmd.outputto

Спасибо. Я это читал. Если посмотреть на мой код,
Код: vbnet
1.
DoCmd.OutputTo acOutputReport, , acFormatPDF, "Отчет за " & [Data] & ".pdf", True


видно, что имя файла у меня создается автоматом, а следовательно, желания писать его самому в диалоге у меня нет. :)

Нашел такое решение:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub PrintReport_Click()
Dim FName As String
With Application.FileDialog(msoFileDialogSaveAs)
    .Title = "Укажите папку для экспорта"
    .AllowMultiSelect = False
    .InitialFileName = "Отчет за " & [Data]    'Название файла по умолчанию
    .Show
    FName = .SelectedItems(1)
End With
DoCmd.OutputTo acOutputReport, , acFormatPDF, FName & ".pdf", True
End Sub
End Sub



Пока работает.
Не знаю, насколько правильно...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 18:06
    #40115338
aleks222
aleks222
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?
Application.FileDialog(msoFileDialogSaveAs) = 1. Открой окно файлового диалога

Молодец. Ты нашел его.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 18:35
    #40115344
HB
HB
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть диалоговое окно выбора директории в DoCmd.OutputTo?
aleks222
Application.FileDialog(msoFileDialogSaveAs) = 1. Открой окно файлового диалога

Молодец. Ты нашел его.


Спасибо! :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как открыть диалоговое окно выбора директории в DoCmd.OutputTo? / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 9979ms
Закрыть
start [/forum/moderation_log.php?user_name=Eliskapwnz]:
 0ms
get settings:
 7ms
get forum list:
 13ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 37ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 9827ms
total:  9979ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]