Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / не меняется ничего, хотя отрабатывает! Как так? / 5 сообщений из 5, страница 1 из 1
05.07.2007, 13:02:34
    #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:15:54
    #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:18:06
    #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:27:10
    #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:39:45
    #34640895
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не меняется ничего, хотя отрабатывает! Как так?
И посмотри не стоит ли где нибудь отложение ошибки типа
Код: plaintext
On Error Resume Next
или
Код: plaintext
On Error GoTo ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / не меняется ничего, хотя отрабатывает! Как так? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 400ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182656]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 242ms
total:  400ms
x
x
Закрыть


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