Excel Forum

Code: Select all

'Other code
If FileSaveName = "" Then
    MsgBox ("No filename , No Save")
Else
    Dim TitleForSave As String
    TitleForSave = "  Save as  " & FileSaveName & ".PDF" & Chr(13) + "  ·Õèá¿éÁ " & path  ' Chr(13) +  =is new row
    Dim iRet As Integer
    iRet = MsgBox(TitleForSave, vbYesNo, "Save PDF file at...")
    If iRet = vbNo Then
    
    Else
        Dim cf As Integer
        If Dir(path & "\" & FileSaveName & ".pdf") <> "" Then
            cf = MsgBox("This file is exists. Confirm to replace?", vbYesNo)
            If cf = vbNo Then Exit Sub
        End If
        Application.ActiveSheet.ExportAsFixedFormat Filename:=path & "\" & FileSaveName, _
            Type:=xlTypePDF
        MsgBox "Save PDF file complete"
    End If
End If
'Other code