Tisk hlavičky+řádku - makro

[Pepa8]

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í

[Reklama]

[atari]

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)

[Pepa8]

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

[eLCHa]

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

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

a spojte s ním tlačítko. (nepoužívejte diakritiku ve makrech)

[Pepa8]

Tak tohle se mi líbí hooodně :) Moc děkuju Vám oběma :)

[Pepa8]

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 ?

[atari]

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.

[Pepa8]

Asi sem tě nepochopil. Nebo možná jo, ale nevím jak upravit to makro.

[eLCHa]

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.

[Pepa8]

Tak já se musím prvně stát mírně pokročilým programátorem

[eLCHa]

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.

[Pepa8]

Je mi to jasné :) čas jsou peníze :) Děkuju moc za rady :)