Printing Excel Spreadsheets 1

[rdmartin]

I have a table that holds a matrix of reports depending on certain criteria. Each of these reports is a worksheet created in Excel and need to be printed. I have a routine that reads the table (Matrix) and then opens the correct form in a separate instances and then closes that instance. I need to be able to print these worksheets while they are open and then close it to move onto the next instance, instead of previewing them on the screen. I used the preview for development and now need to focus on the actual printing of the worksheets. Any help would be appreciated.

 

[combo]

Assuming that you made a reference to excel object library in your project:

[tt]' define and set variables
Dim xlApp as New Excel.Application
Dim xlWbk as Excel.Workbook
Set xlWbk=xlApp.Workbooks.Open("FullPath\MyWorkbook.xls&quot
' print here only part of worksheet
xlWbk.Worksheets(1).Range("A1:H20&quot.Printout Copies:=1, Collate:=True
' clean excel
xlWbk.Close SaveChanges:=False
xlApp.Quit
Set xlWbk = Nothing
Set xlApp = Nothing[/tt]