Tisk hlavičky+řádku - makro

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Pepa8
nováček
Příspěvky: 13
Registrován: červenec 15
Pohlaví: Nespecifikováno
Stav:
Offline

Tisk hlavičky+řádku - makro

Příspěvekod Pepa8 » 09 črc 2015 22:21

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

/edit: díky za upozornění
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.

Reklama
Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Tisk hlavičky+řádku - makro

Příspěvekod atari » 09 črc 2015 22:31

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
nováček
Příspěvky: 13
Registrován: červenec 15
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Tisk hlavičky+řádku - makro

Příspěvekod Pepa8 » 09 črc 2015 22:48

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

Uživatelský avatar
eLCHa
Level 1
Level 1
Příspěvky: 72
Registrován: duben 10
Bydliště: Ostrava
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Tisk hlavičky+řádku - makro

Příspěvekod eLCHa » 10 črc 2015 07:18

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)
eL CHá ;)

Kdo hledá, najde. Jenom je třeba hledat pořádně. Zkuste tohle- opravdu to funguje ;)
No vidíš, když se díváš pořádně, tak jedou ;)

Pepa8
nováček
Příspěvky: 13
Registrován: červenec 15
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Tisk hlavičky+řádku - makro

Příspěvekod Pepa8 » 10 črc 2015 08:26

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

Pepa8
nováček
Příspěvky: 13
Registrován: červenec 15
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Tisk hlavičky+řádku - makro

Příspěvekod Pepa8 » 16 črc 2015 12:03

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

Uživatelský avatar
atari
Level 6
Level 6
Příspěvky: 3195
Registrován: říjen 08
Pohlaví: Muž
Stav:
Offline

Re: Tisk hlavičky+řádku - makro

Příspěvekod atari » 16 črc 2015 14:56

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
nováček
Příspěvky: 13
Registrován: červenec 15
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Tisk hlavičky+řádku - makro

Příspěvekod Pepa8 » 20 črc 2015 07:51

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

Uživatelský avatar
eLCHa
Level 1
Level 1
Příspěvky: 72
Registrován: duben 10
Bydliště: Ostrava
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Tisk hlavičky+řádku - makro

Příspěvekod eLCHa » 20 črc 2015 09:44

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.
eL CHá ;)

Kdo hledá, najde. Jenom je třeba hledat pořádně. Zkuste tohle- opravdu to funguje ;)
No vidíš, když se díváš pořádně, tak jedou ;)

Pepa8
nováček
Příspěvky: 13
Registrován: červenec 15
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Tisk hlavičky+řádku - makro

Příspěvekod Pepa8 » 22 črc 2015 06:41

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

Uživatelský avatar
eLCHa
Level 1
Level 1
Příspěvky: 72
Registrován: duben 10
Bydliště: Ostrava
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Tisk hlavičky+řádku - makro

Příspěvekod eLCHa » 23 črc 2015 08:11

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.
eL CHá ;)

Kdo hledá, najde. Jenom je třeba hledat pořádně. Zkuste tohle- opravdu to funguje ;)
No vidíš, když se díváš pořádně, tak jedou ;)

Pepa8
nováček
Příspěvky: 13
Registrován: červenec 15
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Tisk hlavičky+řádku - makro

Příspěvekod Pepa8 » 23 črc 2015 09:04

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
  • Tisk ELD souboru
    od Jandak » 30 dub 2023 09:53 » v Problémy s hardwarem
    4
    1101
    od Grander Zobrazit poslední příspěvek
    09 čer 2023 21:31
  • Nekvalitní tisk Příloha(y)
    od Dolpi » 21 led 2024 21:09 » v Problémy s hardwarem
    3
    999
    od Dolpi Zobrazit poslední příspěvek
    25 led 2024 18:23
  • tisk samolepicich etiket
    od jirino92 » 02 led 2024 10:08 » v Vše ostatní (hw)
    4
    786
    od Martab Zobrazit poslední příspěvek
    02 led 2024 13:11
  • Kopírování řádků s funkcí když Příloha(y)
    od Martyn20 » 20 črc 2023 16:50 » v Kancelářské balíky
    3
    1786
    od Melvidor Zobrazit poslední příspěvek
    21 črc 2023 08:41
  • Scan a tisk u dvou tiskáren
    od amirinda » 14 říj 2023 06:49 » v Vše ostatní (sw)
    12
    1745
    od amirinda Zobrazit poslední příspěvek
    14 říj 2023 16:39

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů