Ws.PrintOut(ActivePrinter:="你的打印机名")
http://msdn.microsoft.com/zh-cn/library/microsoft.office.tools.excel.worksheet.printout.aspx