[ 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)?
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.