|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
25.08.2005, 18:50:31
|
|||
|---|---|---|---|
Определение области печати |
|||
|
#18+
Ребяты. Помогайте застрял. Переопределяется любая именованная область типа ActiveWorkbook.Names("выделенное").RefersTo = "=Лист1!$A$1:$F$10" Но почемуто не переопределить область печати. Если определить область печати "ручками" то в списке имен появляется имя "Область_печати" Так вот. То что ниже никак не работает! ActiveWorkbook.Names("Область_печати").RefersTo = "=Лист1!$A$1:$F$10" А надо програмно задавать область печати ! Помогите !!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.08.2005, 19:15:59
|
|||
|---|---|---|---|
Определение области печати |
|||
|
#18+
а это "волшебное имя" :) Его так просто не поменяешь. Все что относится к печати правится через объект PageSetup листа. Например Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.08.2005, 22:54:08
|
|||
|---|---|---|---|
Определение области печати |
|||
|
#18+
White Owlа это "волшебное имя" :) Его так просто не поменяешь. Все что относится к печати правится через объект PageSetup листа. Например Код: plaintext пишет error: sub or function defined и выделяет слово WorkSheet Что не так ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.08.2005, 23:02:45
|
|||
|---|---|---|---|
Определение области печати |
|||
|
#18+
И в хелпе по словам PageSetup и PrintArea ничего не находит ... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.08.2005, 23:19:57
|
|||
|---|---|---|---|
Определение области печати |
|||
|
#18+
Виноват.Не в том хелпе смотрел. Попробовал как в примере WorkSheet("Лист1").PageSetup.PrintArea = "B3:D45" пишет Run time error: Нельзя установить свойства PrintArea класса PageSetup Я тестировал с кнопки Private Sub CommandButton1_Click() Worksheets("Лист1").PageSetup.PrintArea = "$A$1:$C$5" End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.08.2005, 23:37:10
|
|||
|---|---|---|---|
Определение области печати |
|||
|
#18+
В это время (22:39) заработал поиск на форуме. Нашел такое ActiveSheet.PageSetup.PrintArea = "$A$1:$J$26" и тоже НЕ РАБОТАЕТ ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.08.2005, 23:39:11
|
|||
|---|---|---|---|
Определение области печати |
|||
|
#18+
Где-то ты ошибся... проверяй внимательнее. Вот побалуйся на досуге: ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.08.2005, 23:45:35
|
|||
|---|---|---|---|
Определение области печати |
|||
|
#18+
White OwlГде-то ты ошибся... проверяй внимательнее. Вот побалуйся на досуге: ПОМОГЛА ПЕРЕЗАГРУЗКА Такой вариант Private Sub CommandButton1_Click() ActiveSheet.PageSetup.PrintArea = "$A$1:$J$3" End Sub Работает (Не знаю как другие) Спасибо Друг ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=61&tablet=1&tid=2185801]: |
0ms |
get settings: |
9ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
80ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
55ms |
get tp. blocked users: |
2ms |
| others: | 237ms |
| total: | 425ms |
| 0 / 0 |
