• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Predvolená tlačiareň - iba názov modelu

Zaslal/a Alindros 20.10.2019 18:00

Zdravím Vás.

Pokúšam sa zistiť pomocou makra názov modelu predvolenej tlačiarne.

Cez Application.ActivePrinter mi ale vypíše celú cestu ku predvolenej tlačiarne :

\\F2042k10\HP LaserJet Professional P1102 (kopie 1) na Ne04:

Nepoznáte nejakú fintu, aby mi vypísalo iba MODEL tlačiarne v tomto prípade napríklad HP LaserJet Professional P1102 ?

Ďakujem.

Zaslat odpověď >

---

JoKe(21.10.2019 13:27)#044734

Function RSearch(str As String, find As String)
RSearch = InStrRev(str, find)
End Function

Function TSK()
TSK = Application.ActivePrinter
End Function

Function Tiskarna()
Tiskarna = (Right(TSK(), Len(TSK()) - RSearch(TSK, "\")))
End Function

Samozřejmě lze sloučit do jediné funkcecitovat

Alindros(22.10.2019 19:20)#044766

JoKe napsal/a:

Samozřejmě lze sloučit do jediné funkce

Zdravím Vás.

Ďakujem za odpoveď, ale musím sa priznať že neviem čo s tým.
Vedeli by ste mi to prosím vysvetliť, prípadne ako píšete spraviť z toho jednu funkciu ?

Ďakujem.citovat

marjankaj(22.10.2019 19:31)#044768

JoKe napsal/a:

Samozřejmě lze sloučit do jediné funkce

To by som aj ja rád vedel. citovat

JoKe(22.10.2019 21:01)#044771

Funkce TISKARNA
vrací název tiskárny bez cesty.

Funkce TISKARNA2 je sloučení všeho dohromady do jedné funkce. Výsledek stejný, méně přehledný.

Příloha: 44771_nazevtiskarny.zip (12kB, staženo 18x)

citovat

Alindros(23.10.2019 19:54)#044775

JoKe napsal/a:

Funkce TISKARNA
vrací název tiskárny bez cesty.

Funkce TISKARNA2 je sloučení všeho dohromady do jedné funkce. Výsledek stejný, méně přehledný.Příloha: 44771_nazevtiskarny.zip (12kB, staženo 4x)

Super ďakujem.
Už tomu rozumiem citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse