rt
调用 Worksheet.PrintOut 方法
的前提是不是，运行程序的系统环境
里必须安装有excel？
是的，必须安装EXCEL。否则你就需要自己来用程序处理XLS文件的格式，这个就需要花很大的精力了。
Dim excel As Object
Dim workbook As Object
Dim worksheet As Object
Set excel = CreateObject("excel.application")
Set workbook = excel.Workbooks.Open("c:\20090914.xls")
Set worksheet = workbook.ActiveSheet
worksheet.PrintOut
workbook.Close False
这是我从网上找到的excel打印输出的代码，但是出pdf方面的代码还没找到，
请两位高手指点一下！最好能贴点相关的代码，谢了！
1、安装PDF打印机，网上有；
2、设为默认打印机；
3、上述代码已经可以了。
哦，明白了！非常感谢！结帖！
dwr.xml:
<create creator="struts" javascript="PrisonerActionForm">
<param name="formBean" value="prisonerForm"/>
< ......
