Здравствуйте! Подскажите, пожалуйста, как печатать А6. Нужно, чтобы при открытии книги, определенные листы изменяли формат на А6. Изначально А4 открывается
Здравствуйте! Подскажите, пожалуйста, как печатать А6. Нужно, чтобы при открытии книги, определенные листы изменяли формат на А6. Изначально А4 открываетсяVologd
Макрос для кнопки. Если макрос будет запускаться при открытии, то Вам наверное может понадобиться книга с другими размерами бумаги, а не с А6. Если в книге всегда листы должны быть в А6, то тогда сделайте А6 и сохраните файл и не надо запускать макрос. В макросе есть комментарий.
[vba]
Код
Sub А6()
Dim colSheetsNumbers As New Collection Dim i As Long
Application.ScreenUpdating = False
'здесь укажите номера листов, у которых нужно установить А6 'можно указывать имена листов colSheetsNumbers.Add Item:=1 colSheetsNumbers.Add Item:="Лист3"
For i = 1 To colSheetsNumbers.Count Worksheets(colSheetsNumbers(i)).PageSetup.PaperSize = 70 Next i
Application.ScreenUpdating = True
End Sub
[/vba]
Макрос для кнопки. Если макрос будет запускаться при открытии, то Вам наверное может понадобиться книга с другими размерами бумаги, а не с А6. Если в книге всегда листы должны быть в А6, то тогда сделайте А6 и сохраните файл и не надо запускать макрос. В макросе есть комментарий.
[vba]
Код
Sub А6()
Dim colSheetsNumbers As New Collection Dim i As Long
Application.ScreenUpdating = False
'здесь укажите номера листов, у которых нужно установить А6 'можно указывать имена листов colSheetsNumbers.Add Item:=1 colSheetsNumbers.Add Item:="Лист3"
For i = 1 To colSheetsNumbers.Count Worksheets(colSheetsNumbers(i)).PageSetup.PaperSize = 70 Next i