Forum społeczności użytkowników OpenOffice i LibreOffice

Kod: Zaznacz cały

<style:page-layout style:name="Mpm1">
  <style:page-layout-properties fo:page-width="21.001cm"
    fo:page-height="29.7cm"
    style:num-format="1"
    style:print-orientation="portrait"
    fo:margin-top="2cm"
    fo:margin-bottom="2cm"
    fo:margin-left="2cm"
    fo:margin-right="2cm"
    style:shadow="none"
    style:writing-mode="lr-tb"
    style:footnote-max-height="0cm">
    <style:footnote-sep [...] />
</style:page-layout-properties>
  <style:header-style/>
  <style:footer-style/>
</style:page-layout>

Kod: Zaznacz cały

 fo:page-height="1200cm"

Kod: Zaznacz cały

Sub ZrobTakZebyDokumentMialTylkoJednaStroneIToJakNajkrotsza()

rem Skrypt został przygotowany w nadziei, że okaże się użyteczny,
rem ale bez jakiejkolwiek gwarancji, w tym także gwarancji skuteczności ani przydatności.

	dim l as long, m as long, r as long

	d = thisComponent
	c = d.currentController
	f = d.StyleFamilies
	p = f.getByName("PageStyles")
	s = p.getByName("Standard")

rem hunting: podziel na strony A4, a potem scalaj aż dojdziesz do jednej strony
rem	s.Height = 29700
rem	do while c.PageCount > 1
rem		s.Height = 2*s.Height
rem	loop

rem alternatywnie: zwielokrotnij wysokość strony; zmniejszenie o wysokość 1 strony spowoduje przełamanie na dwie
	h = s.Height
	r = h * c.PageCount
	l = r - h

rem bisekcja
	do while l < r-1
	  m = int((l+r)/2)
	  s.Height = m
	  if c.PageCount = 1 then
	    r = m-1
	  else
	    l = m
	  endif
	loop

rem kontrola; powinno być 1
	n = c.PageCount		

End Sub