参考
Dim Proc As New ProcessProc.File = "C:\test.xls"Proc.Verb = "Print" '指定动作Proc.Start()
或者,转换成图片后打印
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&skin=0