Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Макрос действует только на 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 - 07.04.2015 11:06:11
Страницы: 1
Наверх