MS Excel

Pokud se ptas na to, jak ovladat ten textak z excelu, tak asi pres Shell, ale presne nevim. Ale pokud to jde o to, vytisknout ten obsah textaku, tak ho mas nacteny v promenne TextFile1.
Vloz ho do listu do bunky A1 a vytiskni to odtud.
Mozna bude potreba si trochu pohrat s formatem te bunky, tak aby ten vytisk z excelu byl totozny s vytiskem z textaku.citovat

Potiz je v tom, ze jedna bunka ma omezenou maximalni vysku a tedy pocet zalomenych radku. Kdyz v kodu zaremujes polovinu toho stringu, tak se to do bunky vleze a da se to tisknout. Asi bych zvazil, kolik radku ten vystup bude mit a podle toho bych zaangazoval i druhou resp treti bunku.citovat

Zkousel jsem ledacos, ale na mych office 2010 to zkratka nejede.
Shell byl schopen otevrit ten textak, ale SendKeys nedelalo nic.
Ale zkus treba nasledujici kod z helpu, treba se nejak inspirujes. Kdyz to spoustim F5, tak to jede, kdyz to krokuju tak nic
Sub ControlCalc()

Dim ReturnValue, I
ReturnValue = Shell("CALC.EXE", 1) ' Run Calculator.
AppActivate ReturnValue ' Activate the Calculator.
For I = 1 To 100 ' Set up counting loop.
SendKeys I & "{+}", True ' Send keystrokes to Calculator
Next I ' to add each value of I.
SendKeys "=", True ' Get grand total.
SendKeys "%{F4}", True ' Send ALT+F4 to close Calculator.
End Subcitovat

o jakou tiskarnu se jedná ? U nas pooužíváme zebry a take vetsinu tiskneme z excelu bez pouziti textaku. Momentálně píši z mobilu tak nepřidám přílohu. Kdyby byla potřeba rád přidámcitovat

Na Zebru lze určitě tisknout přímo z Excelu, když si nastavíš někde na listu layout a budeš doplňovat jen proměnné. Co se čárového kódu týče, tak existují i ve formě fontů, jenž lze použít v excelu, což by byl nejsnažší způsob.
Složitější způsob by byl tisk přímo z makra kde vše nadefinuješ pomocí fce Printer.
No a poslední způsob, který asi nedokážu detailně popsat, ale u nás se Zebrou funguje, někde v Bartenderu je vytvořen layout etikety (*.btw) ten má nějaké proměnné. Bartender sleduje přednastavenou sloužku a jakmile se tam objeví datový soubor tak ho vytiskne. Soubor musí obsahovat jakousi hlavičku obsahující cestu k souboru layoutu jenž má být pro daný štítek použit, cestu k dočasnému souboru pro tisk, název tiskárny kde má být vytištěn. Pod hlavičkou pak následují názvy proměnných a hodnoty jenž v nich mají být vytištěny.
Ale jak říkám, nejsnažší je tisk přímo z excelu, kdy si na listu nastavíš oblast tisku na velikost etiketu, připravíš rozmístění polí (v buňkách) a pak už do nich budeš jen dosazovat.

M@citovat