Поменять ориентацию листа в кальке

[dimmon777]

Нужно макросом изменить ориентацию листа (лист1) из ландшафтного в портретный

[JohnSUN]

Код Выделить Развернуть

sub pgOrient
printersettings = ThisComponent.getPrinter()
printersettings(1).Value = 1 - printersettings(1).Value
ThisComponent.setPrinter(printersettings)
end sub"1 - текущее значение" будет перещелкивать портрет-ландшафт при каждом выполнении процедуры

[dimmon777]

JohnSUN

Спасибо!!! Во всю переключает, можно на кнопку повесить:)