Makro na tisk přes pdf creator

[xkluf300]

Ahoj všem,

mám jeden takovej komplikovanej případ. Teda alespoň pro mně. Potřeboval bych udělat makro na tisk přes PDF creator.
Zatím jsem s pomocí netu stvořil toto, ale stejně mi to pořád nechce fungovat, a už fakt nevím. Nevěděl by někdo?
Předem děkuji.

Kód: Vybrat vše

Sub PDF_Print()
On Error GoTo ErrorMessage
Dim pdfjob As Object
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then KillProcess (PDFCreator.exe) Else
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = "c:\"
.cOption("AutosaveFilename") = "test"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActivePrinter = "PDFCreator"
ActiveDocument.PrintOut
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until Dir("c:\test.pdf") <> ""
DoEvents
Loop
pdfjob.cClose
Set pdfjob = Nothing
End Sub

--- Doplnění předchozího příspěvku (08 Říj 2012 13:43) ---

ještě bych mohl doplnit web ze kterého jsem čerpal. http://www.vbaexpress.com/forum/showthread.php?t=14397

[pavel.lasak]

Proč to musí být přes PDFCreator, když Excel má k dispozici přímo export do *.pdf?

Pohledem do kódu:
Set pdfjob = New PDFCreator.clsPDFCreator misto Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
.cOption("AutosaveFilename") = "test" - nemusí být test.pdf


PDFCreator byl řešen zde: http://www.wbrnet.info/db/1152.html nebo zde http://www.autoitscript.com/forum/topic ... print2pdf/

[xkluf300]

Dobrý den,

je to proto, že mám v sešitu vložen ovládací prvek ActiveX obrázek. A ten se mi za boha nechce do pdfka hodit přes klasické uložení do pdf. Zkoušel jsem to přes pdf creator a tam se zobrazí i ten obrázek. Vložím zde ten můj soubor. http://www.ulozto.cz/xDycQHJ/testovaci-verze-xlsm
Nahoře vlevo si vybírám obrázek a dole mám připravené tlačítko na uložení do pdf. To ale nefunguje, ten obrázek, který je hlavní se nezobrazí.

[Mirdad69]

Dobrý den/ahoj,
A je povolen tisk toho obrázku? (Print object = True ve vlastnostech)
P.S. - v práci nemohu stahovat z ulozto, tak jen hádám.

[xkluf300]

To povolené mám. jestli teda myslíš formát objektu, vlastnosti a tam povolit tisk objektu.

[Mirdad69]

Ano, snad mluvíme o tom samém. Na te Tvůj příklad se budu moc podívat, až přijdu z práce.

[cmuch]

Ten tvůj soubor mi jde normálně přes to tlačítko exportovat do pdf i s tím obrázkem.

[xkluf300]

Tak to nechápu. Já mám office 2007. Ty taky?
To jsem z toho teda jelen .

[Mirdad69]

Mě to taky funguje. Jak v 2007 tak 2010.

[cmuch]

Zkoušel jsem na více PC s 2007 a 2010, běží na všech bez problémů.

[xkluf300]

Aha, moc díky za pomoc. Asi mám prostě nefunkční počítač.
Budu to hold muset dělat na jiném PC.

Ještě bych měl jeden dotaz. Je možné pomocí makra při spuštění excelu přiřadit originální číslo? A to poté při uložení vložit automaticky do názvu. A při každém dalším otevření by se přiřadilo číslo o jedno větší....

[cmuch]

Použij třeba toto

Kód: Vybrat vše

Private Sub Workbook_Open()

Sheets("List1").Range("A1") = Sheets("List1").Range("A1") + 1

End Sub

A tuto buňku pak přidej do názvu souboru.