print certain tabs

[abenitez77]

I want to print all the xls files in a particular folder and I want to only print out these tabs:
Debit, Letter, Claim, Detail and Support. They should go to the default printer. How do i do this?

 

[abenitez77]

I want to print all the xls files in a particular folder and I want to only print out these tabs:
Debit, Letter, Claim, Detail and Support. They should go to the default printer. How do i do this?

FYI...i would like to do this with a vbscript...

 

[abenitez77]

I started with this.... I am getting an error msg on line 26."expected end of statement".

Const strSourcePath = "C:\Documents and Settings\abenit01\Desktop\Document\XLS"
Dim objFSO
Dim objExcel
Dim objWorkbook
Dim objSheet
Dim objFolder
Dim colFiles
Dim objFile
Dim ws

Set objExcel = CreateObject("Excel.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strSourcePath)
Set colFiles = objFolder.Files
For Each objFile in colFiles
' Open the Excel File for Printing
Set objWorkbook = objExcel.Workbooks.Open(objFile)

For Each ws In objWorkbook.worksheets
If ws.Name Like "Debit Memo" Then ws.PrintOut
If ws.Name Like "Letter" Then ws.PrintOut
If ws.Name Like "Claim Schedule" Then ws.PrintOut
If ws.Name Like "Claim Detail" Then ws.PrintOut
If ws.Name Like "Claim Support" Then ws.PrintOut
Next ws

objWorkbook.Close
End If
Next
Set objSheet = Nothing
Set objWorkbook = Nothing
objExcel.Application.Quit
Set objExcel = Nothing

 

[cjcobra]

Just start recording a macro, select the sheets, print, stop recording. No need to dive into the code.

Sheets(Array("Transportation", "Packaging")).Select