SaveAs in PDF...

[plost33]

I use the following line of code to save my excel file in a folder. The file is saved as excel. Anyone know a code to save as a PDF, in the same folder?

.SaveCopyAs SaveLocation & ProjectNumber & " - " & ProjectName & " - " & XXX & ".xlsm"

 

[plost33]

i am using cutePDF....

someone must know a way to have this save as in a pdf. here is my entire code:

Sub ExportSheet()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    Dim Folder As String
    Dim locationname As String
    Dim Response, pw
    Dim NewLogRow As Long
    Dim formula As String
    Dim NameValue As String
    Dim FinalName As String
    Dim XXX As String
   
    XXX = Format(Date, "[$-409]ddmmmyyyy;@")
    locationname = Sheets("Budget").Range("A3").Value
    Folder = "C:\Users\tphythian\Documents\Cost Tracking Exports"
    Worksheets("Budget").Visible = True
   
    ThisWorkbook.Worksheets("Budget").Copy
    With ActiveSheet.UsedRange
        .Value = .Value
    End With
    With ActiveWorkbook
        .SaveAs Folder & "\" & locationname & " - " & XXX & " - Export" & ".xlsx"
        .Close
    End With
    
           
        
    MsgBox "Sheet has been exported and saved in " & "Cost Tracking Exports" & " folder!"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[chuckles1066]

CutePDF is a virtual printer subsystem so I assume you need some sort of print command rather than a "save as"?

 

[plost33]

i agree...i just dont know what..