|
|
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
Как при обращении: DoCmd.SelectObject acReport, "name_report", True 'Выбираем отчет в БД DoCmd.RunCommand acCmdPrint 'Вызываем печать добиться того, чтобы при обработке первой строки не выскакивало окно базы данных? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 17:28 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
a DoCmd.OpenReport "name_report" не пробовал??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 17:41 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
В этом случае он сразу отправляет отчет на "принтер по умолчанию", а вторая строка вызывает окно выбора принтера (что необходимо). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 17:48 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
Первое, чё пришло в голову: SendKeys "^p" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 17:54 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
Проверил, вроде работает ;) естественно, SendKeys надо ставить просле DoCmd.OpenReport ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 17:57 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
Не, у тебя сначала посылается отчет на "принтер по умолчанию", а уж потом SendKeys. :( Да и к тому же чой-то этот Send у меня не сработал :((( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:16 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
авторНе, у тебя сначала посылается отчет на "принтер по умолчанию", а уж потом SendKeys. Трудно синтаксис посмотреть? ;) Код: plaintext 1. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:21 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
Ну, развернулась превьюшка, а дальше-то ничего! ожидание? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:26 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
у тебя какой Access? я на 2002 и 2003 проверял, работает ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:29 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
Сори, у меня 2000. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:30 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
Попробуй два раза SendKeys, вдруг поможет ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:37 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
Ага, и монитор протететь ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:39 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
я серьёзно ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:40 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
или запихни этот SendKeys в какой нить event отчёта (например OnOpen) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:41 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
Да не помогает.... :( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:41 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
попробуй чего нить из серии DoCmd.DoMenuItem ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:45 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
не знаю, есть ли в 2000 это, в XP и 2003 ecть, и даже работает :) docmd.RunCommand acCmdPrint ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:48 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
Эх, тяжела и неказиста жизнь простого программиста.... :((( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:49 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
docmd.RunCommand acCmdPrint Так я ж с этого и начал... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:51 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
цепочка замкнулась ;) здаётся мне, что твой отчёт закрывает этот диалог, попробуй открыть отчёт невидимым, что тогда будет? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 18:56 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#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:11 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
да незачто ;) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 19:18 |
|
||
|
Не дать развернуться окну базы !!!
|
|||
|---|---|---|---|
|
#18+
DoCmd.SelectObject acReport, "Отчет", True 'Выбираем отчет в БД DoCmd.RunCommand acCmdWindowHide 'скрыть окно БД DoCmd.RunCommand acCmdPrint 'Вызываем печать ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.04.2004, 19:22 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32467672&tid=1675612]: |
0ms |
get settings: |
8ms |
get forum list: |
21ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
169ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
74ms |
get tp. blocked users: |
1ms |
| others: | 201ms |
| total: | 497ms |
| 0 / 0 |
