在讀這篇文章以前首先要提醒大家，Access本身的報表也具有很強的實用性和強大的功能，只有當你發掘了其本身全部的功能卻仍不能滿足你對報表的非凡要求時才請使用Excel輸出報表。很明顯，使用Excel輸出報表第一個弱點就是必須同時打開Access和Excel（當然，你得在一台機器上同時安裝Access和Excel），當然假如你和我一樣擁有工作在966MHz上的CPU和256M內存以及大容量硬盤時，那就不必考慮了，繼續吧。
首先找到VBA編程界面並找到"工具"菜單並單擊"引用..."菜單項，在彈出的"引用"窗體中找到"現有引用"列表，在名為"MicrosoftExcelx.0ObjectLibrary"的項目前的方框內打鉤。
其次，你要做好一張空白的Excel電子表格，設定好顯示字體、邊框、打印紙張等等並將其存盤。（以下示例中該表格名為"temp.xls"）當然啦，直接使用空白的Excel文件也是可以的，不過你要編程自動生成表格邊框、背景顏色、單元格格式等一些內容，這些涉及到Excel編程，我以後會在Excel專欄裡具體敘述，這裡就不多說了。
然後你就可以在Access裡面制作你自己的打印預覽窗體了，在窗體中安排2個命令按鈕，在名為預覽的按鈕的click事件裡輸入以下代碼：
PrivateSubExcelPrevIEw_Click()
DimxlAppAsExcel.Application
DimxlBookAsWorkbook,xlSheetAsWorksheet
SetxlApp=CreateObject("Excel.Application")
SetxlApp=NewExcel.Application
xlApp.Visible=True
SetxlBook=xlApp.Workbooks.Open("c:eprotemp.xls")
SetxlSheet=xlBook.Worksheets(1)
xlSheet.Cells(3,1)="制表日期：" "12" "月"
'以上只更改了一個單元格內的數據，可根據需要無限次加入
xlBook.Save
xlSheet.PrintPreview'假如是要打印，只要把PrintPrevIEw改為PrintOut
xlBook.close
xlApp.Quit
EndSub
OK，然後就可以單擊該按鈕看看生成的表格如何了。
