Excel VBA print out

[Legacy 93538]

Hi, I need some help with a macro i am trying to build. I need to be able to print multiple xls documents to PDF via CUTEPDF Writer (this is a must) however there are around 4000+ documents so I it would be easier if the macro could automatically add in the filename.

Does anyone know a way of doing this as I cannot use export to pdf?

Thanks,

Jessica

 

[davesexcel]

Re: Excel VBA print out help

You can loop through a folder of workbooks, then print as PDF.
The easiest way to get a code for that is to use the macro recorder.
Change folder location in the code

Sub LoopThroughFolder()

    Dim MyFile As String, Str As String, MyDir As String, Wb As Workbook
    Dim Rws As Long, Rng As Range
    Set Wb = ThisWorkbook
    'change the address to suite
    MyDir = "C:\WorkBookLoop\"
    MyFile = Dir(MyDir & "*.xls")    'change file extension
    ChDir MyDir
    Application.ScreenUpdating = 0
    Application.DisplayAlerts = 0

    Do While MyFile <> ""
        Workbooks.Open (MyFile)
'---------------------------------------
  'use your pdf code here
'-----------------------------------------
        MyFile = Dir()
    Loop

End Sub