< návrat zpět

MS Excel

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

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
avatar
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
avatar

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
avatar

JoKe napsal/a:

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

To by som aj ja rád vedel. 2citovat
JoKe(22.10.2019 21:01)#044771
avatar
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: zip44771_nazevtiskarny.zip (12kB, staženo 19x)
citovat
Alindros(23.10.2019 19:54)#044775
avatar

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 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje