makro - format strany - VYŘEŠENO

gelo · 18. 5. 2016 08:22:49

Vie mi prosim niekto poradit, ako automaticky nastavit format strany (format papiera, okraje) pri vytvoreni noveho listu cez makro? Zaznam makra skonci na ".uno:PageFormatDialog". Dakujem.

Editoval gelo (26. 5. 2016 11:55:48)

ludviktrnka · 18. 5. 2016 08:37:49

nastavení pro tisk provádím pomocí tohoto návodu http://www.openoffice.cz/doplnky/prace- … ani-a-tisk. Mám pocit že nastavení platí vždy pro celá sešit, nikoli jen pro list. Nastevní okrajů nějak nenacházím :-(

gelo · 18. 5. 2016 10:33:43

Prave to riesenie mi nastavuje len aktualny list
Novovytvoreny ma predvolene hodnoty.

ludviktrnka · 18. 5. 2016 10:38:23

To mě opravdu překvapuje, nastavení formátu papíru je platné pro celý sešit, tedy i pro nové listy. Nechcete sem vaše makro poslat?

EDIT: nezamněňuje se tu náhoudou pojem List a pojem Sešit? List jako součást Sešitu, Sešit jako samostatný soubor?

Editoval ludviktrnka (18. 5. 2016 12:16:47)

lp. · 18. 5. 2016 12:03:08

gelo napsal(a)

Vie mi prosim niekto poradit, ako automaticky nastavit format strany (format papiera, okraje) pri vytvoreni noveho listu cez makro? Zaznam makra skonci na ".uno:PageFormatDialog". Dakujem.

Musí to být makrem? Nestačilo by upravit výchozí šablonu?

gelo · 18. 5. 2016 13:09:02

makro je:

doc = thisComponent
Dim stranka(0) as new com.sun.star.beans.PropertyValue
Dim velkost as new com.sun.star.awt.Size
velkost.Width = 14800 ' sirka
velkost.Height = 21000 ' vyska
stranka(0).Name = "PaperSize"
stranka(0).Value = velkost
doc.Printer = stranka()

novy list (nie Sesit) vytvaram takto:

doc = thisComponent
doc.Sheets.insertNewByName("katalog",1)

Je jedno, ci najprv nastavim rozmery strany a potom vytvorim list, alebo najprv list a potom rozmery - sprava sa to rovnako. Mam LO 5.0.3.2 na xubuntu.
Ide o to, ze by som potreboval z povodneho listu (A4) vybrat udaje do noveho, z ktoreho by mal byt vystup na A5. Potreboval by som to aplikovat na viacero suborov (nie listov).

Editoval gelo (18. 5. 2016 13:11:52)

ludviktrnka · 18. 5. 2016 13:24:23

Tak jsem to zkusil u sebe na win7 LO 5.1. a pracuje dle očekávání. Vytvoří nový list "katalog" a pokud tam dám nějaký obsah a zadám tisk, tiskne na A5. Akorát mě napadlo zkuste vymazat oblasti tisku dokument.Sheets.PrintAreas = array() 'array() je tady prázdné pole, nmusí být ani deklarované

a pak eventuelně založit novou oblast v novém listu:

dim CRA(0) as new com.sun.star.table.CellRangeAddress
sRange = "E1:N101"
CRA(0) = list_katalog.getCellRangeByName(sRange).RangeAddress
list_katalog.setPrintAreas(CRA())

gelo · 18. 5. 2016 15:32:34

NO! Vysledkom je, ze v dokumente, ktory mam spracovat, vytvorim novy list. Do tohto listu skopirujem povodny obsah a stary list s udajmi zmazem... a vsetko pracuje, ako ma!
Ak sa v tom chce niekto povrtat, zahadny dokument mozem poslat mailom.

Dakujem za pomoc, "chyba byla odstranena, aniz byla nalezena".

lp. · 18. 5. 2016 17:42:45

Je to trochu složitější.

Nejspíš se míchá nastavení stránky a nastavení tiskárny. A zřejmě to neladí. (Asi různé listy měly nastavenou různou velikost.)
Nastavit stránku a okraje pro list lze pomocí stránkového stylu. Pokud je, stačí nově vytvořenému listu tento styl připojit.

Sub Main2
Dim oDoc As Object 
Dim oSheet As Object 

Dim oStyleFamilies As Object 
Dim oPageStyles As Object
Dim oAktPageStyle As Object

	oDoc = thisComponent
	oDoc.Sheets.insertNewByName("katalog",1)
	oSheet = oDoc.getSheets.getByName("katalog")
	oSheet.PageStyle = "A5"

' Pokud je styl A5 nadefinovaný správně, je další zbytečné	
	oStyleFamilies = oDoc.StyleFamilies
	oPageStyles = oStyleFamilies.getByName("PageStyles")
	oAktPageStyle = oPageStyles.getByName("A5")

	oAktPageStyle.Width = 14800
	oAktPageStyle.Height = 21000
	
	oAktPageStyle.LeftMargin = 500
	oAktPageStyle.RightMargin = 500
	oAktPageStyle.TopMargin = 1000
	oAktPageStyle.BottomMargin = 1000
End Sub

Doladění tiskárny:

Sub Tiskarna
Dim oDoc
Dim stranka(0) as new com.sun.star.beans.PropertyValue

        oDoc = thisComponent
        stranka(0).Name = "PaperFormat"
        stranka(0).Value = com.sun.star.view.PaperFormat.A5
        doc.Printer = stranka()
End Sub

Editoval lp. (18. 5. 2016 18:00:15)

gelo · 19. 5. 2016 07:52:17

toto sa mi zasekne pri riadku:

	oAktPageStyle = oPageStyles.getByName("A5")

s chybovou hlaskou:

Vyskytla sa výnimka
Type: com.sun.star.container.NoSuchElementException

neutr · 19. 5. 2016 08:23:28

To znamená že v buňce A5 není to co program očekává - definice stylu který jste měl vytvořit mezi svými styly a pojmenovat ho. Toto jméno pak makro umí načíst - ale musí existovat.

lp. · 19. 5. 2016 09:11:58

Název A5 jsem použil, aby se to nemíchalo s existujícími styly. Je to styl strany vytvořený pro formátování stránky A5. Může být pojmenován i jinak.

ludviktrnka · 19. 5. 2016 10:03:18

Můžete prosím trošku poodhalit tajemství stylů stránky? Vůbec jsem netušil že něco takového lze. A teď když to zkouším (nastavit nebo vůbec definovat jiný styl stránky než Výchozí) tak se mi to absolutně nedaří. Přestože organizační rozhraní vypadá podobně jako při nastavování stylu buňky - tedy rodičovský styl, nový název atd. ... tento dialog vůbec nereaguje. Fomát - Stránka - Organizátor prostě mlčí.

EDIT: samozřejmě to lze ve Writeru, možná v dalších modulech, ale Calc se na to moc netváří.

Editoval ludviktrnka (19. 5. 2016 10:20:00)

lp. · 19. 5. 2016 10:45:55

O žádném tajemství nevím.

F11, klik na styly stránky, pravý klik, nový a nadefinujete, co je třeba.
Vyberete styl, klik na plechovku a nalejete ji na list.

nebo Klik na list, 2klik na vybraný styl.
nebo formát - stránka - organizátor ...

ludviktrnka · 19. 5. 2016 10:53:14

Díky. Musím říct že tohle je pro mě úplná novinka. Přes horní menu to moc nejde, ale přes F11 ano.

gelo · 26. 5. 2016 11:50:29

Len doplnim makro na vytvorenie noveho stylu. Potom uz vyssie popisovane makro od lp. funguje a urobi, co som chcel.

sub a5
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Param"
args3(0).Value = "A5"
args3(1).Name = "Family"
args3(1).Value = 8
dispatcher.executeDispatch(document, ".uno:StyleNewByExample", "", 0, args3())
end sub

Dakujem za pomoc.

OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

#1 18. 5. 2016 08:22:49

makro - format strany - VYŘEŠENO

#2 18. 5. 2016 08:37:49

Re: makro - format strany - VYŘEŠENO

#3 18. 5. 2016 10:33:43

Re: makro - format strany - VYŘEŠENO

#4 18. 5. 2016 10:38:23

Re: makro - format strany - VYŘEŠENO

#5 18. 5. 2016 12:03:08

Re: makro - format strany - VYŘEŠENO

#6 18. 5. 2016 13:09:02

Re: makro - format strany - VYŘEŠENO

#7 18. 5. 2016 13:24:23

Re: makro - format strany - VYŘEŠENO

#8 18. 5. 2016 15:32:34

Re: makro - format strany - VYŘEŠENO

#9 18. 5. 2016 17:42:45

Re: makro - format strany - VYŘEŠENO

#10 19. 5. 2016 07:52:17

Re: makro - format strany - VYŘEŠENO

#11 19. 5. 2016 08:23:28

Re: makro - format strany - VYŘEŠENO

#12 19. 5. 2016 09:11:58

Re: makro - format strany - VYŘEŠENO

#13 19. 5. 2016 10:03:18

Re: makro - format strany - VYŘEŠENO

#14 19. 5. 2016 10:45:55

Re: makro - format strany - VYŘEŠENO

#15 19. 5. 2016 10:53:14

Re: makro - format strany - VYŘEŠENO

#16 26. 5. 2016 11:50:29

Re: makro - format strany - VYŘEŠENO

Zápatí