hi, i have the following macro but its not saving pdf and it just gives out error 400 when ever i try to run it, i think its the part where the pdf is but i dont know enough to know what it is (the xlsm part works) if someone can help me recode it to save the pdf regardless of Saveas or save or save it, to always save the pdf file please.
Sub saveclicksaveas()
'''''Making PDF File
Dim Folder1 As String, Folder2 As String, fNAME As String
Dim OrigFolder As String
Application.DisplayAlerts = False
fNAME = "\Q_" & StrConv(Trim([CustomerName]), vbProperCase)
fNAME = StrConv(fNAME, vbProperCase)
MakeFolders Folder1, Folder2 'this will bring back the correct folderpaths from the MakeFolders macro
OrigFolder = ThisWorkbook.path
If Left(ThisWorkbook.Name, 5) = "QUOTE" Then '
'Debug.Print (Folder1 & Trim(fNAME) & ".xlsm")
ActiveWorkbook.SaveAs Folder1 & Trim(fNAME) & ".xlsm", 52
ActiveWorkbook.SaveAs Folder2 & Trim(fNAME) & ".xlsm", 52
Else
ThisWorkbook.Save
ThisWorkbook.SaveAs Folder1 & Trim(fNAME) & ".xlsm", 52
ThisWorkbook.SaveAs Folder2 & Trim(fNAME) & ".xlsm", 52
End If
fNAME = Folder1 & Trim(fNAME) & Format(Now, "_yyyy-mm-dd") & ".pdf"
ThisWorkbook.Sheets("Customer").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fNAME, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
fNAME = "\Q_" & Trim([CustomerName])
fNAME = Folder2 & Trim(fNAME) & Format(Now, "_yyyy-mm-dd") & ".pdf"
ThisWorkbook.Sheets("Customer").ExportAsFixedFormat Type:=xlTypePDF, Filename:=fNAME, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
ThisWorkbook.Save
Application.DisplayAlerts = True
End Sub
Bookmarks