ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / не меняется ничего, хотя отрабатывает! Как так?
5 сообщений из 5, страница 1 из 1
не меняется ничего, хотя отрабатывает! Как так?
    #34640730
Zalagaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zalagaev
Участник
Господа, есть код такой. Управление идет из под Аксеса. Пытаюсь отформатировать все листы по нужному формату. Код отрабатывает, но ничего не происходит. Отчего так?

автор For Each Worksheet1 In Worksheets
With Worksheet1
.PageSetup.PaperSize = xlPaperA3
.PageSetup.Orientation = xlLandscape
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 2
End With
Next
...
Рейтинг: 0 / 0
05.07.2007, 13:02:34
| Ответить | Цитировать | Написать  
не меняется ничего, хотя отрабатывает! Как так?
    #34640780
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
ZalagaevГоспода, есть код такой. Управление идет из под Аксеса. Пытаюсь отформатировать все листы по нужному формату. Код отрабатывает, но ничего не происходит. Отчего так?

автор For Each Worksheet1 In Worksheets
With Worksheet1
.PageSetup.PaperSize = xlPaperA3
.PageSetup.Orientation = xlLandscape
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 2
End With
Next

Из под Аксесса так нельзя наверное. Или это не конкретный пример?
нужно ведь объект сначала указать в котором листы обходить!
...
Рейтинг: 0 / 0
05.07.2007, 13:15:54
| Ответить | Цитировать | Написать  
не меняется ничего, хотя отрабатывает! Как так?
    #34640789
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
For Each Worksheet1 In имя_книги_или_указатель_на_книгу.Worksheets
With Worksheet1
.PageSetup.PaperSize = xlPaperA3
.PageSetup.Orientation = xlLandscape
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 2
End With
Next
...
Рейтинг: 0 / 0
05.07.2007, 13:18:06
| Ответить | Цитировать | Написать  
не меняется ничего, хотя отрабатывает! Как так?
    #34640837
Zalagaev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zalagaev
Участник
явно объект не указан, а если бы не так. то было ба ошибка объекта. код бы нормано ведь не отработал бы.. ?ща проверю
vkodor
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
For Each Worksheet1 In имя_книги_или_указатель_на_книгу.Worksheets
With Worksheet1
.PageSetup.PaperSize = xlPaperA3
.PageSetup.Orientation = xlLandscape
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 2
End With
Next
...
Рейтинг: 0 / 0
05.07.2007, 13:27:10
| Ответить | Цитировать | Написать  
не меняется ничего, хотя отрабатывает! Как так?
    #34640895
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
И посмотри не стоит ли где нибудь отложение ошибки типа
Код: plaintext
On Error Resume Next
или
Код: plaintext
On Error GoTo ...
...
Рейтинг: 0 / 0
05.07.2007, 13:39:45
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / не меняется ничего, хотя отрабатывает! Как так?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34640837&tid=2182656]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 36ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 187ms
total:  275ms
созд. / загр.: 275ms
x
x
Закрыть


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