VBA SaveAS PDF

[Jason Barnes]

I need to save sheet as pdf.
Have tried numerous codes from examples and continue to fail.

Getting Runtime Error 1004;
Document not saved. The document may be open, or an error may have been encountered when saving.

Sub SaveAsPDFExcel()
 
  Dim fName As String
  Dim sLoc As String  'location
 
  sLoc = "C:\Users\Jason Barnes\Desktop\Denbury\"
 
  ' Select sheet to export into PDF file
  Sheets("MAIN").Select
 
  With ActiveSheet
   
    fName = .Range("BC3").Value
 
    'Save as xlsm
    ActiveWorkbook.SaveAs Filename:=sLoc & fName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
   
    ' Export to the PDF
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                         sLoc & fName, Quality:=xlQualityStandard, _
                         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
                         
  End With
End Sub

 

[86ms3]

I copied and pasted this and it worked for me, obviously changed file path. Unless there is an issue with Cell BC3, idk.

 

[Logit]

.

Option Explicit


Sub SavePDF()
Dim Path, FileName1 As String
Path = "C:\Users\My\Desktop\"  '<--- edit path as desired
FileName1 = "Test PDF"   '<--- change file name as desired
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & FileName1 & ".pdf", OpenAfterPublish:=False
End Sub




Sub SavePDF_2()
Dim Path, FileName1 As String
Path = "C:\Users\My\Desktop\"  '<--- edit path as desired
FileName1 = "Test PDF" '<--- change file name as desired


ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select  '<--- add the sheet names as desired


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    Path & FileName1 & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub