sub dayin()

Application.ActiveSheet.PrintOut copies:=1

end sub

這是列印當前的工作表 列印一份

如果是列印當前工作薄中的工作表

Excel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.)　帶引數的列印

引數說明：共四個引數

引數1-數值：當前工作簿中進行列印的起始工作表號(預設1)引數2-數值：當前工作簿中進行列印的結束工作表號(預設最末)

引數3-數值：列印份數(預設1)

引數4-邏輯值：是預覽列印還是直接列印：.T.-預覽列印，.F.-直接列印(預設.F.)

Excel.ActiveSheet.PrintOut()

　　引數說明：共八個引數

　　引數1-數值：起始頁號，省略則預設為開始位置引數2-數值：終止頁號，省略則預設為最後一頁

引數3-數值：列印份數，省略則預設為1份

引數4-邏輯值：是否預覽，省略則預設為直接列印(.F.)

引數5-字元值：設定活動印表機名稱，省略則為預設印表機

引數6-邏輯值：是否輸出到檔案，省略則預設為否(.F.)，若選.T.且引數8為空，則Excel提示輸入要輸出的檔名

引數7-邏輯值：輸出型別，省略則預設為(.T.)逐份列印，否則逐頁列印

引數8-字元值：當引數6為.T.時，設定要列印到的檔名

Excel.ActiveSheet.PrintOut(1,3,6,.F.,"MyPrinter",.F.,.T.,,)　從1頁列印到3頁，列印6份，透過MyPrinter印表機來列印，並且，要逐份列印。