access vba 怎么把excel文件转换成pdf格式？

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、上述代码已经可以了。

---

哦，明白了！非常感谢！结帖！