Save as PDF macro

[pinoynl]

Hi there,

I'm just new on the forum and I would like to seek your help & advice how to make the macro work.

I have prepared a file with multiple sheets (90 to be exact). All these sheets need to be printed to PDF in separate files, each sheet a separate file. The PDF will have the name of the sheet as filename.

This is the code:
Sub SaveAsPDF()

Dim CurWorksheet As Worksheet

For Each CurWorksheet In ActiveWorkbook.Worksheets

CurWorksheet.ExportAsFixedFormat Type:=xlTypePDF, _

Filename:=Application.ActiveWorkbook.Path & “\” & CurWorksheet.Name, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Next CurWorksheet

End Sub
When I run it, it gives a compiling syntax error. It points to the Sub SaveAsPDF() line.

Would you might know what is causing the error and can you help me fix it? Thanks a lot!

 

[pinoynl]

In addition, there is a warning banner in my Excel application saying: BLOCKED CONTENT
I reviewed the Trust Center settings and enabled macros.

Not sure if that is causing the compile error?

 

[HaHoBe]

Hi pinoyl,

an underscore at the end of a codeline says that this line is continued in the next line (contents belong together). If this line is blank the Debugger will raise an error-

Sub SaveAsPDF()

Dim CurWorksheet As Worksheet

For Each CurWorksheet In ActiveWorkbook.Worksheets
CurWorksheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Application.ActiveWorkbook.Path & “ \ ” & CurWorksheet.Name, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
Next CurWorksheet

End Sub

Macros in embedded Excel workbook are blocked from running may answer the additional quesiton.

Ciao,
Holger

 

[pinoynl]

Thanks a lot for your help, Holger!

Now I receive the error "Runtime Error 11 Division by zero"

What does that mean?

 

[HaHoBe]

Hi pinoyl,

you try to divide a number either through 0 (Zero) or an empty cell - but that is not part of teh code you posted before.

Holger

 

[pinoynl]

Hi Holger,

That was the error message when I pasted the code that you shared.

I'll try again.

Thanks!

 

[HaHoBe]

Hi pinoyl,

do you have any event-driven code in either ThisWorkbook or behind the sheet(s)? That could be the reason for the message.

Holger

 

[pinoynl]

Hi Holger,

yes, I have an index sheet that contains the links to all other sheets to easily jump from the index sheet to sheet 'x' and back to the index sheet.