|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
02.04.2004, 17:28
|
|||
|---|---|---|---|
|
|||
Не дать развернуться окну базы !!! |
|||
|
#18+
Как при обращении: DoCmd.SelectObject acReport, "name_report", True 'Выбираем отчет в БД DoCmd.RunCommand acCmdPrint 'Вызываем печать добиться того, чтобы при обработке первой строки не выскакивало окно базы данных? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 17:41
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
a DoCmd.OpenReport "name_report" не пробовал??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 17:48
|
|||
|---|---|---|---|
|
|||
Не дать развернуться окну базы !!! |
|||
|
#18+
В этом случае он сразу отправляет отчет на "принтер по умолчанию", а вторая строка вызывает окно выбора принтера (что необходимо). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 17:54
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
Первое, чё пришло в голову: SendKeys "^p" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 17:57
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
Проверил, вроде работает ;) естественно, SendKeys надо ставить просле DoCmd.OpenReport ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:16
|
|||
|---|---|---|---|
|
|||
Не дать развернуться окну базы !!! |
|||
|
#18+
Не, у тебя сначала посылается отчет на "принтер по умолчанию", а уж потом SendKeys. :( Да и к тому же чой-то этот Send у меня не сработал :((( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:21
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
авторНе, у тебя сначала посылается отчет на "принтер по умолчанию", а уж потом SendKeys. Трудно синтаксис посмотреть? ;) Код: plaintext 1. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:26
|
|||
|---|---|---|---|
|
|||
Не дать развернуться окну базы !!! |
|||
|
#18+
Ну, развернулась превьюшка, а дальше-то ничего! ожидание? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:29
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
у тебя какой Access? я на 2002 и 2003 проверял, работает ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:30
|
|||
|---|---|---|---|
|
|||
Не дать развернуться окну базы !!! |
|||
|
#18+
Сори, у меня 2000. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:37
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
Попробуй два раза SendKeys, вдруг поможет ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:39
|
|||
|---|---|---|---|
|
|||
Не дать развернуться окну базы !!! |
|||
|
#18+
Ага, и монитор протететь ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:40
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
я серьёзно ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:41
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
или запихни этот SendKeys в какой нить event отчёта (например OnOpen) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:41
|
|||
|---|---|---|---|
|
|||
Не дать развернуться окну базы !!! |
|||
|
#18+
Да не помогает.... :( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:45
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
попробуй чего нить из серии DoCmd.DoMenuItem ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:48
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
не знаю, есть ли в 2000 это, в XP и 2003 ecть, и даже работает :) docmd.RunCommand acCmdPrint ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:49
|
|||
|---|---|---|---|
|
|||
Не дать развернуться окну базы !!! |
|||
|
#18+
Эх, тяжела и неказиста жизнь простого программиста.... :((( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:51
|
|||
|---|---|---|---|
|
|||
Не дать развернуться окну базы !!! |
|||
|
#18+
docmd.RunCommand acCmdPrint Так я ж с этого и начал... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 18:56
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
цепочка замкнулась ;) здаётся мне, что твой отчёт закрывает этот диалог, попробуй открыть отчёт невидимым, что тогда будет? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 19:11
|
|||
|---|---|---|---|
|
|||
Не дать развернуться окну базы !!! |
|||
|
#18+
Зверь побежден!!!! Private Sub btn_grup_ostatki_Click() Dim nam As String nam = "Report_Name" On Error GoTo 999 'Выход по ошибке DoCmd.OpenReport nam, acViewPreview DoCmd.RunCommand acCmdPrint 999: Err.Clear 'Очищаем ошибку при отмене печати DoCmd.Close acReport, nam DoCmd.SelectObject acForm, Me.Name 'Выбираем форму End Sub Может кому и пригодится? ;))) Спасибо за помощь, Kelme !!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 19:18
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
да незачто ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.04.2004, 19:22
|
|||
|---|---|---|---|
Не дать развернуться окну базы !!! |
|||
|
#18+
DoCmd.SelectObject acReport, "Отчет", True 'Выбираем отчет в БД DoCmd.RunCommand acCmdWindowHide 'скрыть окно БД DoCmd.RunCommand acCmdPrint 'Вызываем печать ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1675612]: |
0ms |
get settings: |
8ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
38ms |
get topic data: |
18ms |
get forum data: |
2ms |
get page messages: |
72ms |
get tp. blocked users: |
1ms |
| others: | 245ms |
| total: | 398ms |
| 0 / 0 |
