< návrat zpět

MS Excel

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

Zaslal/a kalisci 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ší »
Palooo(3.9.2014 15:22)#021456
avatar
mozte skusit klasicky saveas

code:
PdfFile = ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=Falsecitovat
kalisci(4.9.2014 6:22)#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
Palooo(4.9.2014 8:33)#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
kalisci(4.9.2014 10:04)#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
kristv(6.9.2014 8:43)#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 255x)
citovat
kalisci(9.9.2014 18:27)#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
kalisci(12.9.2014 6:37)#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
Palooo(12.9.2014 9:06)#021563
avatar
toto:
PdfFile = ActiveCell & ".pdf"
pripiste na:
PdfPath = "C:\Data\"
PdfFile = PdfPath & ActiveCell & ".pdf"citovat
kalisci(12.9.2014 10:35)#021564
avatar
Tak jsem to přepsal a nefunguje to. Nemůže tam být ještě nějaká chyba?citovat
Palooo(12.9.2014 10:50)#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

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