Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Confirm save file
Hello to you all happy new year.
In my code below i dont get the security alert which tells me that i'm gonna overwrite an existing file name. Can someone help me modify this code to display the security alert. Sub PrintToFile() 'This example publish the first two pages of the ActiveSheet 'You can change the from and To to only publish the pages you want Dim FilenameStr As String If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _ & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") < "" Then FilenameStr = Application.GetSaveAsFilename(FileFilter:="DecProF ile(*.pdf), *.pdf", InitialFileName:=Trim(Workbooks("Declaration Pro.xls").Worksheets("Front").Range("B4").Value)) ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=FilenameStr, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ From:=1, _ To:=Worksheets("front").Range("G6").Value, _ OpenAfterPublish:=False MsgBox "You can find the PDF file here : " & FilenameStr Else MsgBox "PDF add-in Not Installed, Contact /2257778 for installation file" End If End Sub Thanks in Advance |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Stopping the confirm popup on file save with same name | Excel Programming | |||
dont confirm save with yes/no/cancell | Excel Programming | |||
After Save Event - Confirm | Excel Programming | |||
Save File to Another Directory, but not change Users File Save location | Excel Programming | |||
Saveing a file (Confirm Replace) | Excel Programming |