Stránka 1 z 2
					
				Tisk hlavičky+řádku - makro
				Napsal: 09 črc 2015 22:21
				od 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í
 
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 09 črc 2015 22:31
				od 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)
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 09 črc 2015 22:48
				od 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 :)
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 10 črc 2015 07:18
				od 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)
 
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 10 črc 2015 08:26
				od Pepa8
				Tak tohle se mi líbí hooodně :) Moc děkuju Vám oběma :)
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 16 črc 2015 12:03
				od 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 ?
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 16 črc 2015 14:56
				od 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.
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 20 črc 2015 07:51
				od Pepa8
				Asi sem tě nepochopil. Nebo možná jo, ale nevím jak upravit to makro.
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 20 črc 2015 09:44
				od 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.
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 22 črc 2015 06:41
				od Pepa8
				Tak já se musím prvně stát mírně pokročilým programátorem 

 
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 23 črc 2015 08:11
				od 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.
			 
			
					
				Re: Tisk hlavičky+řádku - makro
				Napsal: 23 črc 2015 09:04
				od Pepa8
				Je mi to jasné :) čas jsou peníze :) Děkuju moc za rady :)