[es] - Molim pomoc -macro

alumina
Aleksandar Alumina
banja luka

Član broj: 302318
Poruke: 2
..ppoe.dyn.broadband.blic.net.

Profil

^{24.04.2012. u 14:44 - pre 146 meseci}

Postovani,
molio bih pomoc oko marcro u excelu- jer znam da vi dobro baratate sa tim!

zeleo bih kod da kad pritisnem gumb npr text u sheet1 u polju A1 predje na sheet2 u polje A1 ,te da se taj sheet 1 sacuva u pdf formatu u nekom folderu pod nazivom iz poja A1.
A u polju A1 na sheet2 na kome se nalazi text iz sheet1 polja A1 pojavi hyperlink za sacuvani pdf pod tim nazivom u odabranom folderu!

U iscekivanju odgovora, srdacan pozdrav !

aleksandar

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.

+41 Profil

Re: Molim pomoc -macro

^{27.04.2012. u 10:04 - pre 145 meseci}

Evo coda.

Code:
Private Sub CommandButton1_Click()

Filename = "C:\Folder1\" & ActiveSheet.Range("A1").Value & ".pdf"
SendKeys Filename & "{ENTER}", False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PrimoPDF:", printtofile:=True, Collate:=True, prtofilename:=Filename

   Worksheets("Sheet2").Activate


  Worksheets("Sheet2").Range("A1").Select


ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "../../../& Filename'Folder1/" & Filename, TextToDisplay:=Filename

End Sub

Ono sto je potrebno jeste da napravis neki novi folder (moj je pod nazivom Folder1) na C particiji,da ti default printer bude neki PDF creator ( u mom slucaju je PrimoPDF) i to je to.Pozdrav.

Jednog dana...

Odgovor na temu

alumina
Aleksandar Alumina
banja luka

Član broj: 302318
Poruke: 2
..ppoe.dyn.broadband.blic.net.

Profil

Re: Molim pomoc -macro

^{28.04.2012. u 13:15 - pre 145 meseci}

Pozdrav,

izbacuje mi neki syntax error.

Molio bih te da mi posaljes testiranu verziju na mail [email protected]

Hvala puno !

aleksandar

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.3gnet.mts.telekom.rs.

+9 Profil

Re: Molim pomoc -macro

^{28.07.2012. u 10:53 - pre 142 meseci}

Pozdrav,
Za konvertovanje excelovih dokumenata u PDF koristim PrimoPDF. Sve funkcioniše kako treba, dok ručno vršim konvertovanje (File - Print - PrimoPDF...).
Dobijem potpuno regularan pdf fajl koji otvaram bez problema.
Kad sve to odradim preko VBA (macro je u prilogu), takođe dobijem pdf fajl, ali - ne mogu da ga otvorim !?
Koristim "stari" Adobe Reader 7.0. Probao sam i da isti fajl otvorim na drugom računaru, sa najnovijim Adobe X, ali - ista stvar.
Default printer mi je, naravno, PrimoPDF.
U prilogu je excelov fajl sa macro-om i "falični" pdf fajl. Nadam se da je neko imao sličan problem, pa da ima rešenje.
Unapred hvala.

Prikačeni fajlovi

ArhivaPDF.xls - 24.5k
AAA.pdf

AAA.pdf - 63.66k

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Molim pomoc -macro

^{30.07.2012. u 08:25 - pre 142 meseci}

Na Ozgridu imaš VBA klasu za štampanje u pdf: Automate PDF Printing. Lično je nisam tesetirao jer već dugo ne koristim treće programe za eksport u pdf: Od v2007 svaki Office nudi ovu mogućnost preko SaveAs (tako da, pretpostavljam da je interesantno samo onima koji nemaju instalirano ništa novije od v2003).

U svakom slučaju, ne vidim razlog da se vezujemo za PrimoPDF, tim pre što, kako vidim iz ovog posta dole, ima i boljih rešenja:

Citat:

why not use a freeware PDF addin that runs "in-process" with

Excel? Try DucuDesk.com's freeware version (deskPDF) of their MS Office

addin. Others are CutePDF Writer, DocuCom PDF Driver. These all put

their own menus in MS Office apps and so can be automated via executing

their menus or simply change the printer so the user gets a dialog

within Excel.

--

Garry

pcreview.co.uk/...

Lično, ako već moram držati program samo u tu svrhu radije ću se odlučiti za jedan od v2007+ Offica.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu