XPS File Save

[DFragnDragn]

Hi, I'm trying to prevent xps overwrite on save.
I can't get anything to work. I'd prefer to use a variable value to individualize each save.
Is it even possible?

With ActiveSheet        
    .ExportAsFixedFormat _                
        Type:=xlTypeXPS, _                
        Filename:="C:Attempt\& Test.xps", _                
        OpenAfterPublish:=False    
End With

 

[lhartono]

Try this...

[COLOR=#d3d3d3]'[/COLOR][COLOR=#a9a9a9]
[/COLOR][COLOR=#d3d3d3]'[/COLOR][COLOR=#a9a9a9][B]usage: SaveFileAsXPS("D:\XPSTestExport.xps")[/B]
[/COLOR][COLOR=#d3d3d3]'[/COLOR]
[COLOR=#ff0000][SIZE=3][FONT=arial narrow]Function[/FONT][/SIZE][/COLOR][COLOR=#ff0000][SIZE=3][FONT=arial narrow] SaveFileAsXPS[/FONT][/SIZE][/COLOR][COLOR=#0000ff][SIZE=3][FONT=arial narrow](ByVal paramFilename As String) As Boolean

[/FONT][/SIZE][/COLOR][COLOR=#a9a9a9][SIZE=3][FONT=arial narrow]'by lhartono[/FONT][/SIZE][/COLOR][COLOR=#0000ff][SIZE=3][FONT=arial narrow]
On Error GoTo Hell

    If Len(Dir(paramFilename)) > 0 Then
        paramFilename = vbNullString
        MsgBox "    File already exist.    ", vbInformation
        paramFilename = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="XPS Files (*.xps), *.xps", Title:="Save XPS as")
    End If
    
    If paramFilename <> "False" Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypeXPS, Filename:=paramFilename, OpenAfterPublish:=True
        SaveFileAsXPS= True
    End If
    
GetOut:
    Exit Function
Hell:
    MsgBox "Error #: " & Err.Number & vbNewLine & vbNewLine & Err.Description, vbOKOnly, "Error Save File as XPS"
    Resume GetOut

[/FONT][/SIZE][/COLOR][COLOR=#ff0000][SIZE=3][FONT=arial narrow]End Function[/FONT][/SIZE][/COLOR]