MS Excel

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

44771_nazevtiskarny.zip (12kB, staženo 19x)

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

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje