printing excel sheet

[May]

Dim xls As Excel.Workbook
Set xls = GetObject("c:\abc.xls")
xls.Parent.Visible = True
xls.Windows(1).Visible = True
xls.Application.ActiveWindow.SelectedSheets.PrintOut
copies:=1, Collate:=True
Set xls = Nothing

May
MCP in Access and SQL Server