VBA ? - Print all files in a directory

[dipsmom]

I am trying to write a VBA program to select all the files (without listing each file) in a directory and print them . The number of files can vary month to month. In Excel, you can highlight all the files and using the Tool Button, you can click Print and it will print all the files.

 

[Cbrine]

If your folder assocaitions are setup correctly, you should be able to do this without any VBA.
1. Using explorer just select each file you want to print(Ctrl-A for all files)
2. Right click on the highlighted area.
3. Select print.

This will print out all the files within a folder.(I haven't used this, so I'm not sure exactly what you will get, but it it works it should save you some coding.) If you specifically need code, just post back.

 

[dipsmom]

This is part of a VBA code I am writing to print out all our Month end reports. This is just a small section of the macro. This section is all of our Expense accounts by Department. There are approximately 100 reports in this directory to be printed.

I am printing these reports manually every month and inserting them into the report packs. All the other reports print automatically every month with a macro button and I am wanting to add these reports to the pack.

 

[Cbrine]

Give this code a try, you will need to update the Path variable.

Private Sub CommandButton1_Click()
Dim wb As Workbook, ws As Worksheet
Dim FileName As String, Path As String
Set wb = ActiveWorkbook
Set ws = ActiveSheet

Path = "C:\test\*.xls"

FileName = Dir(Path, vbNormal)
Do Until FileName = ""
Application.DisplayAlerts = False
Workbooks.Open Left(Path, Len(Path) - 5) & FileName
Set wb = ActiveWorkbook
For Each ws In wb.Worksheets
ws.PrintOut
Next
wb.Close
FileName = Dir()
Loop
End Sub

 

[dipsmom]

Thanks. I'll try that.

 

[Cbrine]

Missed a piece.

Give this code a try, you will need to update the Path variable.

Private Sub CommandButton1_Click()
Dim wb As Workbook, ws As Worksheet
Dim FileName As String, Path As String
Set wb = ActiveWorkbook
Set ws = ActiveSheet

Path = "C:\test\*.xls"

FileName = Dir(Path, vbNormal)
Application.DisplayAlerts = False
Do Until FileName = ""
Workbooks.Open Left(Path, Len(Path) - 5) & FileName
Set wb = ActiveWorkbook
For Each ws In wb.Worksheets
ws.PrintOut
Next
wb.Close

FileName = Dir()
Loop
Application.displayalerts =True
End Sub

 

[Pr0x1mo]

Missed a piece.

Also,

i tried using this code to print pdf's but when i do it just prints out each pdf as Data symbols, do i have to put something in particular to make this print pdf files?