< návrat zpět

MS Excel


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

Zaslal/a 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 #019556
admin
Dlouho jsem to nepoužíval, takže bez záruky.
Příloha: zip19556_save_pdfcreator.zip (13kB, staženo 51x)
citovat
#019557
avatar
Děkuji za mustr, sice mi to ještě nefakčí, ale to se poddá 1
Díkycitovat
#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
#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
#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
#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
#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

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

fce když a data

simplynever • 27.6. 12:48

fce když a data

Anonym • 27.6. 12:43

text > číslo=PRAVDA

Rejpal • 27.6. 12:01

fce když a data

simplynever • 27.6. 10:46

vlookup

simplynever • 27.6. 10:43

text > číslo=PRAVDA

pavelo • 27.6. 8:46

text > číslo=PRAVDA

Rejpal • 26.6. 20:29