我的部分代码如下：
Dim PrintDialog1 As New PrintDialog
PrintDialog1.Document = PrintDocument1
If PrintDialog1.ShowDialog = DialogResult.OK Then
PrintDocument1.Print()
mysub() '此函数控制输出到excel表格中的内容和位置
xlsheet.Application.Dialogs(8).Show()
xlApp.ActiveWorkbook.Saved = False
xlApp.DisplayAlerts = False
xlApp.Workbooks.Close()
xlBook.DisplayDrawingObjects = Excel.XlDisplayDrawingObjects.xlHide
xlApp = Nothing
xlBook = Nothing
xlsheet = Nothing
我的mysub（）函数是控制输出到固定表格中内容的。
问题是在选择打印机之后打印不出内容，有时候能打印，但是提示会跳出“被调用的对象已于其客户端断开”的提示。而且在进程中会多一个excel.exe进程。
不懂了，求大神指点。。。

木有人吗？ 异常的问题已经解决，但是打印不出来内容的问题还是存在，进程中多出来的excel.exe的问题也还是存在，求指教

水晶报表　　　　--来自大帝国南部！

问题解决了，送给后来的人。
我搞错了
在定义打印内容之后直接在后面加一句
xlsheet.Application.Dialogs(8).Show()
就可以显示（以安装驱动的）打印机了，然后选择打印，
就可以打印写好的内容了。