Public Sub PRINTxls(ByVal Path As String)
  Dim ex As New Microsoft.Office.Interop.Excel.Application
  Dim sPrinter As String
  sPrinter = ex.Application.ActivePrinter
  ex.ActivePrinter = ex.Dialogs( _
    Microsoft.Office.Interop.Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show()
  ex.Visible = True
  ex.Workbooks.Open(Path)
  ex.ActiveWorkbook.ActiveSheet.PrintOut(Copies:=1, Collate:=True)
  ex.ActiveWorkbook.Saved = True
  ex.ActivePrinter = sPrinter
  ex.ActiveWorkbook.Close()
  ex.Quit()
End Sub

ex.Dialogs( _
  Microsoft.Office.Interop.Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show()