MS Excel

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

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ěď >

admin(19.5.2014 19:50)#019556

Dlouho jsem to nepoužíval, takže bez záruky.

Příloha: zip

19556_save_pdfcreator.zip (13kB, staženo 102x)

citovat

pajajaja(19.5.2014 20:50)#019557

Děkuji za mustr, sice mi to ještě nefakčí, ale to se poddá

Díkycitovat

zEjnik(19.5.2014 21:18)#019558

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

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

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

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

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)

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.