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

Tak 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-help

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

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 ... :huh:

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 :evil:

//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š :wink:

V příloze.

Re: Tabulky na štítky

Napsal: 29 led 2009 13:07
od guest
Člověk se stále učí a pořád je co dohánět! :lol: :lol: :lol:

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