Ahoj. Uměl by někdo poradit? Mám tabulku, viz. příloha.
Ke každému řádku bych chtěl mít tlačítko s makrem, které by vytisklo hlavičku+daný řádek. Viz makro co tam mám.
Nevím ale jak to udělat abych takovéhle makro měl u všech řádků (+vždy aby u toho bylo záhlaví tabulky).
A další věc...když bych s vaší pomocí tohle makro udělal...jde nakopírovat nějak k dalším řádkům abych to nemusel dělat 500x ručně? Díky
/edit: díky za upozornění
Tisk hlavičky+řádku - makro
Tisk hlavičky+řádku - makro
- Přílohy
-
- Palety-vzor.xlsm
- (75.4 KiB) Staženo 37 x
Naposledy upravil(a) Pepa8 dne 09 črc 2015 22:44, celkem upraveno 2 x.
Re: Tisk hlavičky+řádku - makro
Jak to udělat u všech řádků je mnoho způsobů. Například dle událostní procedury, když na daném řádku 2x klepneš myší na buňku, tak se spustí makro a vytiskne ten řádek na kterém bylo 2x klepnuto.
Makro samozřejmě bude jenom jedno univerzální, které si vždy přečte na kterém řádku bylo klepnuto. Jsou tu jiní odborníci, kteří by vymysleli i jiné jednoduché způsoby.
A přílohy dávej sem do příloh, ne na nějaký google. (Doporučuji přečíst pravidla fora)
Makro samozřejmě bude jenom jedno univerzální, které si vždy přečte na kterém řádku bylo klepnuto. Jsou tu jiní odborníci, kteří by vymysleli i jiné jednoduché způsoby.
A přílohy dávej sem do příloh, ne na nějaký google. (Doporučuji přečíst pravidla fora)
Re: Tisk hlavičky+řádku - makro
Nemohl by si mi prosím tě tu událostní proceduru vložit do té mojí tabulky? Pokud to teda nezabere něj extra času...
Jinak jestli má někdo nějaký jednodušší/elegantnější nápad tak budu rád za každý tip :)
Jinak jestli má někdo nějaký jednodušší/elegantnější nápad tak budu rád za každý tip :)
Re: Tisk hlavičky+řádku - makro
Přidávat tlačítko ke každému řádku je nepraktické.
Já používám následující
1. Vyberte celý první řádek (1:1) a dejte Vložit buňky.
2. Ukotvěte příčky na tento řádek aby byl vždy vidět.
3. Přesuňte na něj tlačítko - bude vždy vidět řádek a tedy bude vždy vidět i tlačítko ;)
4. V proceduře se pak odkazujte na aktivní řádek - rozumějte řádek, na kterém se nachází kurzor.
Vložte kód a spojte s ním tlačítko. (nepoužívejte diakritiku ve makrech)
Já používám následující
1. Vyberte celý první řádek (1:1) a dejte Vložit buňky.
2. Ukotvěte příčky na tento řádek aby byl vždy vidět.
3. Přesuňte na něj tlačítko - bude vždy vidět řádek a tedy bude vždy vidět i tlačítko ;)
4. V proceduře se pak odkazujte na aktivní řádek - rozumějte řádek, na kterém se nachází kurzor.
Vložte kód
Kód: Vybrat vše
Sub subPrintActiveRow()
With ActiveSheet.PageSetup
.PrintArea = Union(Range("$B$2:$O$4"), Intersect(Range("$B:$O"), ActiveCell.EntireRow)).Address
.PrintTitleRows = "$2:$4"
End With 'ActiveSheet.PageSetup
If ExecuteExcel4Macro("Get.Document(50)") = 1 Then
ActiveSheet.PrintOut From:=1, To:=1
Else
ActiveSheet.PrintOut From:=2, To:=2
End If
End Sub
Re: Tisk hlavičky+řádku - makro
Tak tohle se mi líbí hooodně :) Moc děkuju Vám oběma :)
Re: Tisk hlavičky+řádku - makro
Tak bych měl ještě jednu otázku. To makro co si mi tu napsal je super. Uplně špicové by to ale ještě bylo, kdyby se to na papír vytisklo 2x. Jde mi o to, že bych to nemusel tisknout 2x. Potřebuji to potrvzení totiž vždy dvakrát ( pro mě a pro dopravce )a kdyby se to dalo vytisknout na jeden papír tak by se to dalo odtrhávat a ušetřím 1A4. Viz. příloha, list TISK.... Šlo by to ?
- Přílohy
-
- Paletové konto – kopie.xlsm
- (83.82 KiB) Staženo 35 x
Re: Tisk hlavičky+řádku - makro
Nevím jestli to jde, třeba se k tomu eLCHa vyjádří.
Já bych to řešil tak, že bych na listu to potrzení udělal 2x (naformátoval na A4), a pak to nechla tím makrem vytisknout.
Já bych to řešil tak, že bych na listu to potrzení udělal 2x (naformátoval na A4), a pak to nechla tím makrem vytisknout.
Re: Tisk hlavičky+řádku - makro
Asi sem tě nepochopil. Nebo možná jo, ale nevím jak upravit to makro.
Re: Tisk hlavičky+řádku - makro
Přímo v excelu to nelze, řekl bych.
Takže vidím 3 možnosti
1) - jako prostředníka využít word - nastavení tisku 2 stránek na 1 má integrované - touto cestou bych se asi vydal já, je to nejjednodušší
2) - pomocí nějaké API funkce nastavit tisk 2 stránek na 1 a pak použít kód viz výše. Není třeba prostředník, je to ideální, ale pokud nenaleznete hotové řešení na webu, tak je to časově náročné.
3) - jak píše atari. Vykopírovat 2x pod sebe, nastavit a vytisknout. Toto zvládne každý mírně pokročilý programátor ve VBA.
Takže vidím 3 možnosti
1) - jako prostředníka využít word - nastavení tisku 2 stránek na 1 má integrované - touto cestou bych se asi vydal já, je to nejjednodušší
2) - pomocí nějaké API funkce nastavit tisk 2 stránek na 1 a pak použít kód viz výše. Není třeba prostředník, je to ideální, ale pokud nenaleznete hotové řešení na webu, tak je to časově náročné.
3) - jak píše atari. Vykopírovat 2x pod sebe, nastavit a vytisknout. Toto zvládne každý mírně pokročilý programátor ve VBA.
Re: Tisk hlavičky+řádku - makro
Tak já se musím prvně stát mírně pokročilým programátorem
Re: Tisk hlavičky+řádku - makro
Nemusíte, i když by se Vám to mohlo hodit.
Můžete pokaždé ručně nastavit tisk 2 na 1 (vlastnosti tiskárny).
Nebo můžete najít někoho, kdo Vám to vytvoří.
Pokud píšu nějaký kód zadarmo, tak mně to buď musí zaujmout nebo musím mít náladu. V obou případech navíc musím mít čas.
Můžete pokaždé ručně nastavit tisk 2 na 1 (vlastnosti tiskárny).
Nebo můžete najít někoho, kdo Vám to vytvoří.
Pokud píšu nějaký kód zadarmo, tak mně to buď musí zaujmout nebo musím mít náladu. V obou případech navíc musím mít čas.
Re: Tisk hlavičky+řádku - makro
Je mi to jasné :) čas jsou peníze :) Děkuju moc za rady :)
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 4
- 1101
-
od Grander
Zobrazit poslední příspěvek
09 čer 2023 21:31
-
- 3
- 999
-
od Dolpi
Zobrazit poslední příspěvek
25 led 2024 18:23
-
- 4
- 786
-
od Martab
Zobrazit poslední příspěvek
02 led 2024 13:11
-
- 3
- 1786
-
od Melvidor
Zobrazit poslední příspěvek
21 črc 2023 08:41
-
- 12
- 1745
-
od amirinda
Zobrazit poslední příspěvek
14 říj 2023 16:39
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů