Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос действует только на 1 лист, как распространить его действие на всю книгу
 
Добрый день, нашел макрос на формирование полей листа
Код
Option Explicit
Private WithEvents App As Application
Private Sub Workbook_Open()
Set App = Application
End Sub

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Wb.Sheets(1).PageSetup
.LeftMargin = Application.InchesToPoints(0. 8)
.RightMargin = Application.InchesToPoints(0.4)
.TopMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.4)
.HeaderMargin = Application.InchesToPoints(0.2)
.FooterMargin = Application.InchesToPoints(0.2)
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub

но он действует только на 1 лист, как распространить его действие на всю книгу?
Изменено: 32Fm - 7 Апр 2015 11:06:11
 
Код
 Application.ScreenUpdating = False
For i = 1 To Sheets.Count 'цикл по листам книги
    With Wb.Sheets(i).PageSetup
.....
Next
Application.ScreenUpdating = True
 
А зачем Set App = Application?
В вопросе это не звучит.
Страницы: 1
Читают тему (гостей: 1)