В рамките на библиотеката с обекти на Excel има ли интерфейс за задаване на предпочитанията за печат за отпечатване на цялата работна книга вместо активния лист?
Отговори:
0 за отговор № 1Не, PageSetup се прилага само за листа
Най-доброто, което можете да направите, е макрос, за да копирате необходимите настройки
Sub CopyPageSetup()
Dim sh As Worksheet, cl As Range
Dim shBase As Worksheet
Set shBase = ActiveSheet
For Each sh In ActiveWindow.SelectedSheets
If sh.Name <> shBase.Name Then
sh.PageSetup.Orientation = shBase.PageSetup.Orientation
" Add other PageSetup properties here "
" unfortunately sh.PageSetup = shBase.PageSetup does not work "
End If
Next
End Sub