Tabulky na štítky Vyřešeno

[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.html

Tak aby mi to frčelo v open office,vytisknout adresy...

Moc prosím :-)

[Reklama]

[mike007]

Vítej na pc-help

Rozměry štítku znáš, tak si pohraj s velikostí buněk.
Není to nic složitého

[loveass]

A to je právě to co neumím...

[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.

[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

[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

[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...

[navstevnik]

to loveass: love ass...., nechce se ti s tim mrvit, nepotrebujes se ucit. Dr. Rath ma co dohanet.

[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

[mike007]

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.

[guest]

Člověk se stále učí a pořád je co dohánět!

[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...