Stránka 1 z 2

Makro na tisk přes pdf creator

Napsal: 08 říj 2012 09:16
od 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

Re: Makro na tisk přes pdf creator

Napsal: 09 říj 2012 17:55
od 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/

Re: Makro na tisk přes pdf creator

Napsal: 10 říj 2012 08:53
od 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í.

Re: Makro na tisk přes pdf creator

Napsal: 10 říj 2012 09:08
od 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.

Re: Makro na tisk přes pdf creator

Napsal: 10 říj 2012 12:12
od xkluf300
To povolené mám. jestli teda myslíš formát objektu, vlastnosti a tam povolit tisk objektu.

Re: Makro na tisk přes pdf creator

Napsal: 10 říj 2012 12:52
od 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.

Re: Makro na tisk přes pdf creator

Napsal: 10 říj 2012 15:38
od cmuch
Ten tvůj soubor mi jde normálně přes to tlačítko exportovat do pdf i s tím obrázkem.

Re: Makro na tisk přes pdf creator

Napsal: 10 říj 2012 16:15
od xkluf300
Tak to nechápu. Já mám office 2007. Ty taky?
To jsem z toho teda jelen :-).

Re: Makro na tisk přes pdf creator

Napsal: 10 říj 2012 22:39
od Mirdad69
Mě to taky funguje. Jak v 2007 tak 2010.

Re: Makro na tisk přes pdf creator

Napsal: 11 říj 2012 06:33
od cmuch
Zkoušel jsem na více PC s 2007 a 2010, běží na všech bez problémů.

Re: Makro na tisk přes pdf creator

Napsal: 11 říj 2012 08:32
od 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ší....

Re: Makro na tisk přes pdf creator

Napsal: 11 říj 2012 20:58
od 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.