< 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:  1 2   další »
#021456
avatar
mozte skusit klasicky saveas

code:
PdfFile = ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
citovat
#021464
avatar
Děkuji, ale asi to není to co jsem chtěl.

Chybí mi tam to uložení jako název v buňce A1...

Je někdo schopný mi poradit?

Díkycitovat
#021466
avatar
Som si myslel ze ovladate VBA lebo z toho kodu bolo hned jasne kde treba doplnit udaj z bunky A1.

zamente:

PdfFile = ActiveSheet.Name & ".pdf"
za:
PdfFile = cells(1,1) & ".pdf"citovat
#021467
avatar
děkuji, ale já vůbec neovládám VBA, potřebuji se nějak dohrabat k tomu makru. Když jsem to vkládal do makra, tak mi nějak nefunguje. Asi dělám chybu v úvodu nebo v konci. Tomuto bohužel vůbec nerozumím.

nemohl byste mi to napsat celé?

Díky moc.citovat
#021477
avatar
V příloze je celé makro i popsané.
Soubor se uloží pod názvem, který obsahuje aktivní buňka (na které stojí kurzor). Pokud je kurzor v buňce prázdné, uložení se neprovede.
Příloha: zip21477_uloz_podle_bunky_do_pdf.zip (11kB, staženo 245x)
citovat
#021501
avatar
Děkuji moc, funguje.
Měl bych ještě jednu prosbu.
Je možné do makra přidat cestu, kam se bude soubor ukládat?citovat
#021562
avatar
Tak už jsem vyzkoušel všechny možné varianty a ne a né přijít na to, jak zadat do makra umístění (složku), kam se mají soubory ukládat.
Poradí někdo?citovat
#021563
avatar
toto:
PdfFile = ActiveCell & ".pdf"
pripiste na:
PdfPath = "C:\Data\"
PdfFile = PdfPath & ActiveCell & ".pdf"
citovat
#021564
avatar
Tak jsem to přepsal a nefunguje to. Nemůže tam být ještě nějaká chyba?citovat
#021566
avatar
PdfPath = "C:\Data\"

a existuje cesta k "C:\Data\" resp. dajte si tam vlasnu cestucitovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09