[ Dusan N. @ 19.08.2014. 11:21 ] @

Kako dovršim makro da mi u "D:/Naziv foldera"
snimi u PDF format uz pomoc CutePDF Writera pod nazivom
FName="naziv"& A3

Sub SnimiPDF()


Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True

End Sub

Pozdrav
[ Dusan N. @ 19.08.2014. 13:13 ] @
Dodao sam u kodu

Sub snimiPDF2()

Filename = "D:\Kalk \" & "Kalk " & ActiveSheet.Range("g3").Value & ".pdf"

Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True, prtofilename:=Filename,

End Sub

Makro radi i snimi fajl kao PDF, medjutim Adobe reader ne može da ga otvori i štampa.

Kada ga snimim preko dialoga print i save as otvara ga i štampa normalno.

Da li to znači da moram instalisat Adobe acrobat ili se može kroz kod regulisat (preko extenzije ili neki drugi način)?