This a test code but the result not what I need!
The result looks like this: (Desktop Filename.pdf)
Private Sub Image_PDF_Click()
'save as PDF
Dim File_name As String
Dim thisWb As Workbook
Set thisWb = ActiveWorkbook
File_name = thisWb.Path & Worksheets("Lists & File Name").Range("C45").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
thisWb.Path & "File_name", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox ("Done!")
End Sub
Any advice, please!
The result looks like this: (Desktop Filename.pdf)
Private Sub Image_PDF_Click()
'save as PDF
Dim File_name As String
Dim thisWb As Workbook
Set thisWb = ActiveWorkbook
File_name = thisWb.Path & Worksheets("Lists & File Name").Range("C45").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
thisWb.Path & "File_name", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
MsgBox ("Done!")
End Sub
Any advice, please!