Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / не меняется ничего, хотя отрабатывает! Как так? / 5 сообщений из 5, страница 1 из 1
05.07.2007, 13:02:34
    #34640730
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
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не меняется ничего, хотя отрабатывает! Как так?
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
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не меняется ничего, хотя отрабатывает! Как так?
Код: 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
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не меняется ничего, хотя отрабатывает! Как так?
явно объект не указан, а если бы не так. то было ба ошибка объекта. код бы нормано ведь не отработал бы.. ?ща проверю
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
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не меняется ничего, хотя отрабатывает! Как так?
И посмотри не стоит ли где нибудь отложение ошибки типа
Код: plaintext
On Error Resume Next
или
Код: plaintext
On Error GoTo ...
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / не меняется ничего, хотя отрабатывает! Как так? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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