< návrat zpět

MS Excel


Téma: Tisk do souboru pdf a uložení dle určené buňky rss

Zaslal/a 3.9.2014 13:57

Dobrý den,
mohl by mi někdo poradit s následujícím problémem?
Mám nainstalovaný PDF creator a potřeboval bych
udělat makro, které mi vytiskne stránku do pdf (vlastně uloží do souboru pdf) s názvem který je uveden třeba v buňce A1.

Předem díky za radu.
Radek

Zaslat odpověď >

Strana:  « předchozí  1 2
#021568
avatar
jo to chápu. Cestu jsem zadal, ale stejně to hází chybu: variable not defined.citovat
#021570
avatar
tak potom netusim u mna to fungujecitovat
icon #021571
avatar
možná príčina: chybovú hlášku variable not defined kód hádže v prípade, keď je nastavená povinná deklarácia premenných (Option Explicit na začiatku modulu) a daná premenná nie je zadeklarovaná. Takže, buď zrušiť Option Explicit, t.j. vymazať z kódu túto inštrukciu, alebo čistejšie riešenie - danú premennú zadeklarovať.
Prílohu som neštudoval, ani nebudem.

edit: Zvedavosť mi nedala a prílohu som otvoril. Je to tak, ako píšem vyššie: Pri povinnej deklarácii premenných je potrebné zadeklarovať premennú PdfPath:
Dim PdfPath (as String), časť v zátvorkách by tam byť mala, ale nemusí, v tom prípade bude PdfPath zadeklarovaná ako Variant.citovat
#021575
avatar
V příloze jsou tři varianty složky pro uložení. Každé tlačítko má své celé makro, to proto, abyste si mohl zkusit a vybrat a zkopírovat do své úlohy.
1. Uložení do složky, cesta je makru zadaná "natvrdo"
2. Uložení do aktivní složky, tedy té, ze které jste spustil tento (svůj) sešit.
3. Uložení do složky, kterou si nejdříve vyberete z počítače. Pokud na žádnou složku pro výběr "neklepnete", bude procedura ukončena.
Příloha: zip21575_uloz_podle_bunky_do_pdf.zip (15kB, staženo 186x)
citovat
#021576
avatar
No to je super, funguje úplně parádně....
Díky moc.
Ještě mám poslední dotaz:
Když bych chtěl v makru zadat, aby mázev souboru nebyl dle aktivní buňky, ale byl natvrdo dle buňky A1, jak to provedu?
Díkycitovat
#021577
€Ł мσşqμΐτσ
Místo
PdfFile = PdfPath & ActiveCell & ".pdf"
nahradit ActiveCell => List1.Range("A1") viz níže
PdfFile = PdfPath & List1.Range("A1") & ".pdf"
upozornění: pokud používáš anglickou verzi MS Office tak List1 nahradit Sheet1, nebo napsat jenom Range ("A1")citovat

Strana:  « předchozí  1 2

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