Stránka 1 z 2
Tabulky na štítky
Napsal: 28 led 2009 17:18
od loveass
Zdravím,dokázal by někdo udělat tabulku na print etikety konkrétně tenhle typ? :
http://www.aukro.cz/item538353300_print_etikety_matne_27ks_a4_70mm_x_33mm_100ks.htmlTak aby mi to frčelo v open office,vytisknout adresy...
Moc prosím :-)
Re: Tabulky na štítky
Napsal: 28 led 2009 20:41
od mike007
Vítej na pc-helpRozměry štítku znáš, tak si pohraj s velikostí buněk.
Není to nic složitého

Re: Tabulky na štítky
Napsal: 28 led 2009 22:03
od loveass
A to je právě to co neumím...
Re: Tabulky na štítky
Napsal: 28 led 2009 23:07
od X
Ještě lehčí je to v:
Design Pro 2000 - Perfect Print Out Zweck Form
... při prvním použití se tiskárna zkalibruje na rozměr. Tento program obsahuje tisíce různých šablon na vše možné (k dostání jsou i papíry a samolepky přímo k tomuto programu), stačí jen poupravit existující šablonu, nebo vytvořit novou.
Re: Tabulky na štítky
Napsal: 29 led 2009 00:21
od mike007
Neexistuje slovo
NEUMÍM, ale
NECHCI ...
Tady máš makro, které ti vytvoří 27 buněk o velikosti 70x33mm. Pak si uprav jen okraje stránky, aby se ti to vešlo na A4 (excel automaticky nastavuje okraje...) Doufám, že makro zprovoznit umíš...
Sub SetColumnWidthMM(ColNo As Long, mmWidth As Integer)
Dim w As Single
If ColNo < 1 Or ColNo > 255 Then Exit Sub
Application.ScreenUpdating = False
w = Application.CentimetersToPoints(mmWidth / 10)
While Columns(ColNo + 1).Left - Columns(ColNo).Left - 0.1 > w
Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth - 0.1
Wend
While Columns(ColNo + 1).Left - Columns(ColNo).Left + 0.1 < w
Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth + 0.1
Wend
End Sub
Sub SetRowHeightMM(RowNo As Long, mmHeight As Integer)
If RowNo < 1 Or RowNo > 65536 Then Exit Sub
Rows(RowNo).RowHeight = Application.CentimetersToPoints(mmHeight / 10)
End Sub
Sub velikost27ks_70x33mm()
SetColumnWidthMM 1, 70
SetColumnWidthMM 2, 70
SetColumnWidthMM 3, 70
SetRowHeightMM 1, 33
SetRowHeightMM 2, 33
SetRowHeightMM 3, 33
SetRowHeightMM 4, 33
SetRowHeightMM 5, 33
SetRowHeightMM 6, 33
SetRowHeightMM 7, 33
SetRowHeightMM 8, 33
SetRowHeightMM 9, 33
End Sub
Re: Tabulky na štítky
Napsal: 29 led 2009 01:12
od loveass
No nic asi si poradím jinak,šlo mi o to aby jenom někdo vytvořil tabulku a někam uploadnul,ne abych se s tím mrvil celý den,na to nemám čas...Ale i tak díky
Re: Tabulky na štítky
Napsal: 29 led 2009 01:33
od loveass
Kde stáhnu ten design pro 2000 na netu jsem to nenašel?by mě v životě nenapadlo že vytvoření jedné tabulky potrvá tak dlouho a to stačí pouze jedna tabulka na všechno,učit se v open office nepotřebuju,jinak to nevyužiju...
Re: Tabulky na štítky
Napsal: 29 led 2009 08:32
od navstevnik
to loveass: love ass...., nechce se ti s tim mrvit, nepotrebujes se ucit. Dr. Rath ma co dohanet.
Re: Tabulky na štítky
Napsal: 29 led 2009 09:16
od Rewqa
To MikeOO7: Ne každej umí v excelu tak jako ty
//Ale prosím tě. Zvětšit a zmenšit si velikosti buněk umí člověk se základy práce v Excelu...
//mike007
Re: Tabulky na štítky Vyřešeno
Napsal: 29 led 2009 09:31
od mike007
loveass píše:No nic asi si poradím jinak,šlo mi o to aby jenom někdo vytvořil tabulku a někam uploadnul,ne abych se s tím mrvil celý den,na to nemám čas...Ale i tak díky
Na to nemáš čas... a my na to snad čas mít máme? Myslíš si, že když si jen tak pískneš, tak tu všichni budou kolem tebe pobíhat? Taky se trošku snaž, když něco chceš
V příloze.
Re: Tabulky na štítky
Napsal: 29 led 2009 13:07
od guest
Re: Tabulky na štítky
Napsal: 29 led 2009 13:50
od loveass
Díky mike,přesně tohle jsem potřeboval,ještě mi prosím tě řekni jak vložit celou adresu do jednoho okýnka,jmeno adresa a psc mi leze do tří okýnek...