VBA excel export to PDF need to save in different location

[lesleyfayburton]

The following code is supposed to save the pdf in a different folder than where the current workbook with the data is being saved and I can't seem to fix the code to do that. I feel like it is something that I am not thinking of that is causing the issue. Thank you !

Sub Clickticketsaveemail1b1s()

Dim saveLocation As String
Dim rng As Range

saveLocation = "T:\Department\Investment Sales\_Restricted\TRADING\TRADE TICKETS"
Set rng = Sheets("Trade Ticket").Range("A1:G61")
FileName = Sheets("Trade Ticket").Range("R1").Value & ".pdf"

SaveAsStr = ActiveWorkbook.Path & "\" & Sheets("Trade Ticket").Range("R1").Value
rng.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Sheets("Trade Ticket").Range("R1").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

Dim xSht As Worksheet
Dim xFileDlg As FileDialog
Dim xFolder As String
Dim xYesorNo As Integer
Dim xOutlookObj As Object
Dim xEmailObj As Object
Dim xUsedRng As Range

 

[Fluff]

How about

saveLocation = "T:\Department\Investment Sales\_Restricted\TRADING\TRADE TICKETS"
Set rng = Sheets("Trade Ticket").Range("A1:G61")
Fname = Sheets("Trade Ticket").Range("R1").Value & ".pdf"

SaveAsStr = saveLocation & "\" & Fname
rng.ExportAsFixedFormat Type:=xlTypePDF, FileName:=SaveAsStr, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

 

[lesleyfayburton]

How about

saveLocation = "T:\Department\Investment Sales\_Restricted\TRADING\TRADE TICKETS"
Set rng = Sheets("Trade Ticket").Range("A1:G61")
Fname = Sheets("Trade Ticket").Range("R1").Value & ".pdf"

SaveAsStr = saveLocation & "\" & Fname
rng.ExportAsFixedFormat Type:=xlTypePDF, FileName:=SaveAsStr, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

IT WORKED!!!! Oh my gosh thank you thank you

 

[Fluff]

You're welcome & thanks for the feedback.