Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

Cardello · 27. 7. 2011 09:14:13

Dobrý den, na jednom listu mám dvě na sobě závislé tabulky a potřeboval bych je tisknout každou zvlášť na různé listy s použitím různého nastavení, konkrétně jednu tabulku na šířku se zalomením pod sebe a možná i zmenšeně, tak aby se to vešlo na jeden list a druhou tabulku na výšku a bez měřítka. Rád bych to nějak nastavil, aby se to tímto způsobem tisklo automaticky a nebylo potřeba to pokaždé přenastavovat zvlášť. Je to nějak možné vyřešit? Předem díky.

sedlacekdan · 27. 7. 2011 18:34:11

Možná makrem, jiným způsobem to zřejmě nepůjde, ale nikdy jsem to nezkoušel.

Ještě předtím je ale třeba vědět, zda je opravdu nutné mít obě tabulky na jednom listu? Odkazy z tabulky do tabulky můžete přetahovat nejen mezi buňkami, ale i listy a dokonce i dokumenty.

Nejjednodušší je tedy varianta přesunout tabulku na další list, upravit vzorce a nastavit si formát stránky na každém listu zvlášť.

Cardello · 27. 7. 2011 19:52:08

Díky, přesunul jsem tabulku na jiný list a přiblížil se požadovanému výsledku, ale nastal jiný neočekávaný problém:).Tabulka je hodně široká, a zalamování při tisku mi funguje tak, že každou část vytiskne na samostatnou stránku, kdežto já bych potřeboval, aby se jednotlivé kusy tabulky naskládaly pod sebe na jeden list. Nechce se mi vůbec tu tabulku předělávat do požadovaného formátu přímo v programu, protože pak by byla hodně nepřehledná pro potřeby výpočtu, tisknutá verze má sloužit jen jako pracovní, pro kontrolu, proto by se hodilo mít vše vytištěné na jednom listu...Předem díky

sedlacekdan · 27. 7. 2011 20:13:01

Formát -> Stránka -> záložka List -> Režim nastavení měřítka - tady vyberte prostřední možnost Přizpůsobit rozsah tisku výšce/šířce (šířku a výšku stránek ponechte na 1). Ještě si na záložce Stránka upravte okraje na menší hodnoty (ne 0) celý list se vytiskne na jednu A4.

Ondra.kl · 28. 7. 2011 06:53:45

Pokud se tabulka nemění rozsahem ale jen obsahem tak můžete taky používat 2 verze - pracovní a tiskovou.

1. pracovní mějte v jednom listě a dělejte si v ní co chcete a nastavte si formátování jaké vám vyhovuje pro práci
2. tiskovou vytvořte na samostatném listě pomocí prostých odkazů ( =A1) a naformátujte dle libosti.

hanus · 28. 7. 2011 06:58:35

Tohle asi nebude to, co Cardello chce (od sedlacekdan). Podle mě OOo neumí rozdělit tisk tak, že co se nevejde na list vpravo, umístí na ten samý list níže. Pokud to chcete, budete opravdu muset sáhnout po rozdělení tabulky - pomocí CTRL+X a CTRL+V by to neměl být problém, pokud máte v tabulce stejně široké sloupce a není tam moc různě slučovaných buněk.
Umí takový způsob tisku Excel? Starší verze (do 2003) to myslím taky neuměly.

Editoval hanus (28. 7. 2011 07:00:04)

Cardello · 28. 7. 2011 11:46:09

Díky všem, je to tak jak píše Hanus, ale nakonec jsem to udělal tak, jak píše SedlacekDan, tabulka se sice hodně zmenší, takže jsem se původně obával, že už nebude čitelná, ale celkem to jde. Tak, jak píše Ondra.kl, to vpodstatě mám už vyřešené, ale po nějaké době jsem zjistil, že bych potřeboval pro pracovní účely vytisknout obě verze. A problém je právě v tom slučování buněk a rozdílné šířce sloupců:)

Ondra.kl · 29. 7. 2011 09:07:53

Cardello napsal(a)

A problém je právě v tom slučování buněk a rozdílné šířce sloupců:)

To řeším kopií listu a pak nahrazením dat v kopii odkazy na původní buňky.

sedlacekdan · 31. 7. 2011 21:39:55

Pro ty, kterým by se to hodilo, tak makrem tisk dvou oblastí s rozdílným formátováním z jednoho listu by vypadal takto:

sub tiskvyberu
Dim Oblast(0) as New com.sun.star.table.CellRangeAddress
Dim Podminka(0) as New com.sun.star.beans.PropertyValue
doc = thisComponent
listktisku = doc.Sheets.getByName("List1") ' tiskneme z listu1


REM nastavíme formát stránky pro dokument na výšku
Podminka(0).Name = "PaperOrientation"
Podminka(0).Value = com.sun.star.view.PaperOrientation.PORTRAIT
doc.Printer = Podminka()


REM nastavíme první oblast tisku
Oblast(0) = listktisku.getCellRangeByName("A1:A3").RangeAddress
listktisku.setPrintAreas(Oblast()) 
doc.Print(Array()) 'tiskneme první oblast


REM počkáme 1 vteřinu kvuli synchronizaci
wait 1000


REM nastavíme format na šířku
Podminka(0).Name = "PaperOrientation"
Podminka(0).Value = com.sun.star.view.PaperOrientation.LANDSCAPE
doc.Printer = Podminka()


REM nastavíme druhou oblast
Oblast(0) = listktisku.getCellRangeByName("B1:B3").RangeAddress
listktisku.setPrintAreas(Oblast()) 
doc.Print(Array())

end sub

Toto makro nastavuje oblasti tisku, stejně jako Formát -> Oblast tisku po skončení běhu makra, tak zůstane nastavená oblast č. 2 a formát stránky na šířku. Při opakovaném tisku makra to však nevadí, neboť makro definuje podmínky tisku znovu.

Pokud si v sešitu pojmenujete oblasti přes Data -> Definovat oblast můžete tyto názvy použít v makru místo rozsahu buněk (místo "A1:A3" napíšete "Oblast1")
;o)

sedlacekdan · 4. 8. 2011 17:51:10

Značím téma jako vyřešené
;o)

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

#1 27. 7. 2011 09:14:13

Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

#2 27. 7. 2011 18:34:11

Re: Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

#3 27. 7. 2011 19:52:08

Re: Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

#4 27. 7. 2011 20:13:01

Re: Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

#5 28. 7. 2011 06:53:45

Re: Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

#6 28. 7. 2011 06:58:35

Re: Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

#7 28. 7. 2011 11:46:09

Re: Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

#8 29. 7. 2011 09:07:53

Re: Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

#9 31. 7. 2011 21:39:55

Re: Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

#10 4. 8. 2011 17:51:10

Re: Tisk na různé formáty z jednoho listu - VYŘEŠENO - částečně

Zápatí