求助！如何设置打印问题

雨后的天空

请问：在access里能否设置一个命令按钮执行打印excel表？
如果能执行打印，应该怎么设置？
谢谢

Henry D. Sy

1. Dim xlApp As New Excel.Application
   
2.     Dim xlWb As Excel.Workbook
   
3.     Set xlWb = xlApp.Workbooks.Open(CurrentProject.Path & "\book1.xls")
   
4.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   
5.     xlWb.Close
   
6.     Set xlApp = Nothing

复制代码

Henry D. Sy

需要引用excel

雨后的天空

谢谢了 我看看

雨后的天空

如何引用啊，我是菜鸟，请Henry D. Sy 指教

Henry D. Sy

如何引用啊，我是菜鸟，请Henry D. Sy 指教
雨后的天空 发表于 2009-3-7 08:35

雨后的天空

Set xlWb = xlApp.Workbooks.Open(CurrentProject.Path & "\book1.xls")

如果我把excel表放到d：盘的管理系统价格表下面
你上面的这句应该如何改，
麻烦你帮个忙

qqb

学习一下，谢谢

citizzj

学习

chaojianan

Set xlWb = xlApp.Workbooks.Open(CurrentProject.Path & "\book1.xls")

如果我把excel表放到d：盘的管理系统价格表下面
你上面的这句应该如何改，
麻烦你帮个忙
雨后的天空 发表于 2009-3-7 13:04

xlApp.Workbooks.Open("d:\管理系统价格表\book1.xls")