< návrat zpět

MS Excel


Téma: Tisk PDF rss

Zaslal/a 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ěď >

#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
#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
#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
#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
#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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09