Help with print to PDF.

[harryreece100]

The following macro. Is throwing an error. It is run time error '-2147024773 (8007007b)'.

This page describes how to use the Export fixed format command in excel 2007. I am using Excel 2013. It mentions and add in that is required. I do not have it in excel 2013 but i cannot find the PDF add in for my version of excel.

https://msdn.microsoft.com/en-us/library/bb238907(office.12).aspx



Sub createPDFfiles()


Dim ws As Worksheet
Dim Fname As String
For Each ws In ActiveWorkbook.Worksheets
'On Error Resume Next 'Continue if an error occurs




Fname = " T:\Data Analytics\Reports In-Progress\Allocation\2015\PDFTest\" & ws.Name



ws.ExportAsFixedFormat
Type:=xlTypePDF, _
Filename:=Fname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Next ws
End Sub

 

[yky]

Did the code compile on your computer? It did not on mine. It seems you left out an underscore after ws.ExportAsFixedFormat. Once I added an underscore, it ran fine.