lesleyfayburton
New Member
- Joined
- Dec 4, 2020
- Messages
- 8
- Office Version
- 2016
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
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