< návrat zpět

MS Excel

Téma: Tisk PDF rss

Zaslal/a paveku 18.11.2010 22:00

Zdravím, potřebuji pomoc. Chtěl bych z excelu pomocí vba kodu vytisknout soubor, který má formát pdf. Cestu k němu, včetně jeho názvu získám z aktivní buňky.
Jde to, nebo je to nesmysl?
Tisk může proběhnout i na pozadí.
Otevřít soubor pdf pomocí vba a pak ho vytisknout umím, ale to bych chtěl obejít.
Díky za rady.

Zaslat odpověď >
RomanNTA(18.11.2010 22:37)#003205
avatar
Dobrý večer
Co vlastně chceš ? 7 7 v druhé větě chceš z Excelu pomocí VBA vytisknout soubor a v předposlední větě zase, že to umíš ale chtěl bys to obejít.

Asi uprostřed je odpověď ... je to nesmysl ?

promiň
R.citovat
paveku(19.11.2010 8:20)#003215
avatar
Umím to, že otevřu soubor pdf v Adobe reader v něm to vytisknu (to je ta druhá věta 7 ) a Adobe reader zavřu.
Já bych to chtěl udělat tak, aby příkaz pro tisk byl již v kodu vba a aby uživatel ani neviděl, že se Adobe reader otevřel a zavřel. 4
Snad to je teď srozumitelnější.
Možná jednodušeji - v excelu stisknu tlačítko a z tiskárny leze vytištěný soubor PDF.citovat
RomanNTA(19.11.2010 9:08)#003217
avatar
Pokud se nepletu, pak ADOBE je v ActiveX ... tak zkus vytvořit objekt CreateObject("???") ... otevři soubor, vytiskni a zavři + uvolni paměť. Pokud použiješ ScreenuUdating = false ... tak se ani myš nepohne. Krom Tebe nikdo nepozná jak jsi to vytisknul.
Poznáš to jen ve správci programu, že se vytvořil nový proces, který zase po čase zmiznul ;-)

R.citovat
paveku(19.11.2010 19:41)#003240
avatar
Tak jsem na to šel takto :

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Tisk()
vykres = ActiveCell
soubor = vykres & ".pdf"
ShellExecute Application.hwnd, "print", soubor, vbNullString, vbNullString, 0
End Sub

Proběhne to bez problému. Ale nevím, jak uzavřit proces AcroRd.exe, resp. program, který je k otevření pdf asociován.
A ještě bych uvítal možnost výběru tiskárny 2 před tiskem

Pls, pomozte.citovat
archangel(21.10.2013 7:24)#015781
avatar
'výběr tiskárny
Application.Dialogs(xlDialogPrint).Show

'nastavení tiskárny
Application.Dialogs(xlDialogPrinterSetup).Showcitovat

Uživatelské menu

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

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