Orientação da página via macro Calc

[JúnioVieira]

Bom dia,
Preciso de uma macro que altere a orientação da página no calc de retrato para paisagem e vice-versa. Desde já obrigado!

[schiavinatto]

Ola @JúnioVieira, uma luz no fim do túnel, esta é para Writer, então deve ser possível para Calc.

how to write macro to set page margins and orientation

I need to frequently open a large number of .txt files and easily change the default page margins and orientation. A similar previous question was closed as irrelevant. The suggestion was to put a page style in the default template. This does not work for me since the .txt files are not opened with the default template. I have an answer and will post the code.

[mrkalvin]

Vc realmente precisa alterar a orientação da página via macro?

Talvez não seja melhor usar um estilo de pagina para retrato e um para paisagem no mesmo documento.

Planilhas impressas em paisagem ou retrato. Como fazer?

No Calc, tenho várias planilhas, sendo que algumas precisar ser impressas em orientação paisagem e outras em retrato. Como faço para manterem orientações diferentes?

Complemento:
Aquivo de exemplo com a macro:
retrato-paisagem-macro.ods

[schiavinatto]

Bem lembrado, @mrkalvin, Criando o estilo, se ainda quiser mudar é possível fazer a macro com o próprio gravador de macros.

[mrkalvin]

Mas se precisar realmente usar macro pode usar essa aqui também, onde a altura e comprimento setados são referente a um papel A4 e vai alterar o estilo de página Default (Padrão)

----Complemento corrigido, a altura e comprimento se alternam entre os estilos.

sub Paisagem
	dim Doc as Object
	oDoc = ThisComponent

	StyleFamilies = oDoc.StyleFamilies 
	PageStyles = StyleFamilies.getByName("PageStyles") 
	DefPage = PageStyles.getByName("Default")
	  
	DefPage.IsLandscape = True
	DefPage.Width = 29700
	DefPage.Height = 21000
end sub

sub Retrato
	dim Doc as Object
	oDoc = ThisComponent

	StyleFamilies = oDoc.StyleFamilies 
	PageStyles = StyleFamilies.getByName("PageStyles") 
	DefPage = PageStyles.getByName("Default")
	  
	DefPage.IsLandscape = False
	DefPage.Width = 21000
	DefPage.Height = 29700
end sub

[schiavinatto]

Muito bom @mrkalvin, macros arquivadas com créditos em meu banco de submacros.

[JúnioVieira]

Muito obrigado a todos, excelente observação quanto a precisar realmente de macro, pois o libreoffice tem muita ferramenta nativa e as vezes nos fechamos a usar sempre macros, de qualquer forma a sua resposta dupla ficou excelente, hoje a ferramenta estilos atende muito bem minha necessidade, mas guardarei as macros para outras situações.

[mrkalvin]

Seria interessante incluir as palavras: retrato, paisagem nas tags do tópico pra facilitar as buscas.

[schiavinatto]

Ok, incluídas.