A?
Pokud sem nevložíš vzorový soubor, tak se nikam nepohnem!
44101 = 27.9.2020
Možná tohle:?
oDokument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
Neměl by náhodou ten kód být takto:?
oDokument.PrintOut From:="1", To:="1"
nebo
oDokument.PrintOut From:=CStr(1), To:=CStr(1)
Ještě sem se pošťoural v kódu pro jednotlivé směny.
Jen tak v rychlosti, snad to bude stačit.
Tak využij pomocný sloupec, jak to máš ve svém souboru se vzorcem:
=DATUMHODN(ZLEVA(K14;NAJÍT(" ";K14;1)))
Ahoj, tohle by nestačilo?
=SUMIFS(N:N;O:O;Q13&"*")
Hele chlape, co si tak ujasnit funkcionalitu a sladit ji s popisem a vzorovým příkladem! Nikde v textu ani příloze není zmínka o tom, že by se v seznamu (databázi žáků) měly vyskytovat prázdné řádky.
Prázdný řádek = není jméno souboru = chyba.
Drobná rada pro příště. Přilož vzorový soubor odpovídající reálu, ale hlavně pořádný popis jak má vše fungovat. Tohle dávkování požadavků po kapkách a neustále přepisování kódu stojí za ...
https://www.youtube.com/watch?v=1HVLSuAZEtQ
V popisku má i odkaz na soubor.
Další tlačítko sem nepřidával, místo něj je použit ovládací prvek optionbutton, kterým se vybírá tisk do PDF nebo na výchozí tiskárnu. Volba je platná pro všechna tlačítka tisku (jednotlivý, hromadný, tisk listů sept - aug).
Kód k jednotlivým tlačítkům se dá prohlédnout přes kartu vývojář, kde se zvolí řežim návrhu, poté stačí na tlačítko poklepat myší a otevře se editor vba s příslušným kódem.
Pro jeho přenos do jiného souboru je však třeba kódu porozumět a vědět co je nutné upravit (přepsat) pro jeho funkčnost. Kód talčítka spolupracuje i s jinými částmi kódu.
Otestuj
Můžeš poskytnout vzorový soubor?
Upraveno.
Přikládám svůj výtvor. Při tisku všech jmen je zobrazena informace ve stavovém řádku - docela to trvá.
Případně si oprav SK popisky -> Google translator
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.