☰

ignorar o anular el formato de la página del documento actual con configuraciones predefinidas automáticamente libreoffice

tag-icon • tag-icon templates libreoffice-calc libreoffice-writer
ignorar o anular el formato de la página del documento actual con configuraciones predefinidas automáticamente libreoffice

Al abrir un documento creado por otra persona, me gustaría que los márgenes se establezcan automáticamente en 0,4 cm, la orientación de la página en horizontal y el tamaño de página en A3.

A mi papá le envían por correo electrónico una hoja de cálculo semanalmente y él la imprime. Para encajarlos en una página, aplica estos ajustes, lo cual es bastante laborioso. ¡Pensé que debía haber una manera más rápida de hacer esto!

Intenté crear una nueva plantilla predeterminada con esta configuración, pero esto solo funciona para un documento nuevo en blanco. Intenté crear un estilo para aplicar rápidamente estas configuraciones, pero me di cuenta de que estos estilos son específicos del documento/plantilla (?) y, por lo tanto, no aparecen al abrir el documento de otra persona.

¿Alguien tiene alguna idea de cómo puedo hacer esto? Gracias =]

Respuesta1

Una forma sería utilizar una macro para configurar los parámetros de la página y guardar la macro en una biblioteca a la que puedan acceder todas las hojas. La macro se podría asignar al menú de libreoffice. No sería automático, pero podría ejecutarse haciendo clic en la entrada del menú en la hoja de cálculo que desea cambiar.

Esta macroen un foro de OpenOffice es lo más parecido que pude encontrar. Parece funcionar en LibreOffice.

sub formatpage()
rem from http://user.services.openoffice.org/en/forum/viewtopic.php?f=20&t=42863
rem original by GWS with addition by Villory
rem modified for A3 and 0.4 cm margin
Dim sS      as String     '$     'Style name
Dim oStyle    as Object   'The current page style

pageStyles = thisComponent.StyleFamilies.getByName("PageStyles")
page = pageStyles.getByName("Default")

REM A3
page.width=29700
page.height=42000

REM SET MARGINS LEFT, RIGHT, TOP, BOTTOM = .4 cm"
page.LeftMargin = 400
page.RightMargin = 400
page.TopMargin = 400
page.BottomMargin = 400

REM Set Page Orientation TO LANDSCAPE
Dim printerOption(0) As New com.sun.star.beans.PropertyValue
printerOption(0).Name = "PaperOrientation"
printerOption(0).Value = com.sun.star.view.PaperOrientation.LANDSCAPE
thisComponent.Printer = printerOption()

sh=ThisComponent.Sheets.getByIndex(0)
sh.PageStyle=("Default")

end sub

información relacionada