VBA print to PDF

[bellatoma13]

Hello,
I have been using the following vba code in order to print all the page from excel to pdf, but it somehow stopped working. Could somebody help me to resolve the issue?
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

' Name PDF files based on the worksheet Index (e.g Annex 1.1.1, Annex 1.1.2, etc.)
Fname = ws.Name & "_" & ActiveWorkbook.Name

' If you want to name the PDF files differently just change the Fname variable above to
' whatever you like. For example if you changed Fname to:
'
' Fname = “C:\myFolder\pdfs\” & ActiveWorkbook.Name & "-" & ws.Name
'
' The files would be stored in C:\myFolder\pdfs, and named using the
' spreadsheet file name and the worksheet name.
'
' WARNING: Using worksheet names may cause errors if the names contain characters that Windows
' does not accept in file names. See below for a list of characters that you need to avoid.
'
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Fname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False
Next ws
End Sub

 

[Michael M]

works fine for me !
Have you changed versions of Excel or Adobe lately ?
Have you added new macros ?
Do you get any errors when running the code ?

 

[bellatoma13]

Hi, no I am using the same version of excel and adobe as before, no errors, I just run it with F5, it seems to do the split but at the end, it does not create any documents. That`s why I was struggling with the problem, I am printing a high volume of documents from excel and it takes forever to do it one by one.

 

[bellatoma13]

On which version of pdf did you try this code?

 

[Michael M]

Acrobat Reader......basic version !!
Have you done a search for the PDF in Explorer. It might be defaulting it to somewhere else.
Try putting it in C:\myFolder\pdfs\ as per your code !