< návrat zpět

MS Excel

Téma: převod listu do PDF pomocí makra rss

Zaslal/a pajajaja 19.5.2014 18:14

Prosím, nemáte někdo zpracované makro či zkušenost s tiskem přes pdf creator pomocí makra? Je toto ještě vůbec možné?
Čeho bych chtěl dosáhnout:
Po kliknutí na tlačítko se vytiskne list excelu přes PDF creator. PDF se uloží se do složky, kde je aktuálně otevřený exc. soubor. (např. Hlavní složka, která obsahuje exc. soubor a podsložku s názvem tisk). Jako název souboru si vezme buňku např. b6.
?
Za rady a náměty moc děkuji

Zaslat odpověď >
icon admin(19.5.2014 19:50)#019556
admin
Dlouho jsem to nepoužíval, takže bez záruky.
Příloha: zip19556_save_pdfcreator.zip (13kB, staženo 102x)
citovat
pajajaja(19.5.2014 20:50)#019557
avatar
Děkuji za mustr, sice mi to ještě nefakčí, ale to se poddá 1
Díkycitovat
zEjnik(19.5.2014 21:18)#019558
avatar
Sub TiskDoPDF()

ActiveSheet.Select

CestaAdresare = ThisWorkbook.Path
zakazka = Range("G1").text
soubor = CestaAdresare & "\" & zakazka & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=soubor, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Netiskne se přes PDFCreator, ale nevím, jestli je to problém...citovat
pajajaja(19.5.2014 21:42)#019559
avatar
Ahoj,díky za reakci.
Problém to není, nemusí to jít přes Creator, stačí když bude pdf.
vyzkouším
Díkycitovat
pajajaja(19.5.2014 21:50)#019560
avatar
Paráááááda :)
funguje to,

akorát bych ještě potřeboval, aby se mi to ukládalo do složky Tisk
Teď se mi to uloží sice pod správným názvem, ale v té hlavní složce, šlo by tomu vnutit ukládat tam kde je otevřený sešit a do složky Tisk?
Díkycitovat
zEjnik(19.5.2014 22:15)#019562
avatar
Sub TiskDoPDF()

ActiveSheet.Select

CestaAdresare = ThisWorkbook.Path
zakazka = Range("G1").Text
soubor = CestaAdresare & "\" & "Tisk" & "\" & zakazka & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=soubor, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub
citovat
pajajaja(19.5.2014 23:04)#019563
avatar
To je přesně ono, co jsem potřeboval!
Díky moc za ochotu a radu!citovat

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