Save active worksheet as new workbook in PDF format

[toughie]

Hi All,

The code below returns an error -Run-time error '1004': Document not saved.

anyone know why?

(Error on line .ExportAsFixedFormat...)

Private Sub CommandButton1_Click()
Range("B10").Activate
If IsError(ActiveCell) Then
UserForm1.Hide
UserForm3.Show vbModeless
Else

PdfFile = "C:\Users\tougand\Desktop\PHOSPHATE MACRO\" & Range("B7") & Range("B8")
With ActiveSheet
.ExportAsFixedFormat Type:=xlTypePDF, fileName:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

ThisWorkbook.Close SaveChanges:=True
End If
Exit Sub
End Sub

 

[DanteAmor]

"C:\Users\tougand\Desktop\PHOSPHATE MACRO\"

Does that folder exist?

Range("B7") & Range("B8")

Exactly what data do you have in those cells?

You can activate the macro recorder, save the active sheet as pdf, go back to macros and stop the macro recorder. Paste here the generated code.

 

[toughie]

Does that folder exist?


Exactly what data do you have in those cells?

You can activate the macro recorder, save the active sheet as pdf, go back to macros and stop the macro recorder. Paste here the generated code.

Hi Dante,

I ran a record macro and that doesnt let me save as PDF either i get an error saying - Document Not Saved

"C:\Users\tougand\Desktop\PHOSPHATE MACRO\" - Also the folder does exist.

Range("B7") & Range("B8") containt text and numbers for example B7 = 1072858262 and B8 = H0A12314

Just for info - I am trying to export one worksheet only from the workbook and save it as PDF

 

[DanteAmor]

What version of office and excel do you have?
Maybe you need to install some plugin to be able to save documents as pdf.

 

[toughie]

I'm running on Office 16 Excel, not sure what plugins i need to save as pdf.

 

[DanteAmor]

Sorry I don't have 2016 to test.
Maybe someone else can guide us to download the add-in or maybe you need other software to save as a pdf.