VBA打印工作薄、打印工作表的参数及代码

一、打印当前工作簿

oExcel.ActiveWorkBook.PrintOut()　默认直接打印整个工作簿：

oExcel.ActiveWorkBook.PrintOut(1,oExcel.WorkSheets.count,1,.T.)　带参数的打印

参数说明：共四个参数

参数1-数值：当前工作簿中进行打印的起始工作表号(默认1)
参数2-数值：当前工作簿中进行打印的结束工作表号(默认最末)
参数3-数值：打印份数(默认1)
参数4-逻辑值：是预览打印还是直接打印：.T.-预览打印，.F.-直接打印(默认.F.)

二、打印当前工作表

oExcel.ActiveSheet.PrintOut()

参数说明：共八个参数

参数1-数值：起始页号，省略则默认为开始位置
参数2-数值：终止页号，省略则默认为最后一页
参数3-数值：打印份数，省略则默认为1份
参数4-逻辑值：是否预览，省略则默认为直接打印(.F.)
参数5-字符值：设置活动打印机名称，省略则为默认打印机
参数6-逻辑值：是否输出到文件，省略则默认为否(.F.)，若选.T.且参数8为空，则Excel提示输入要输出的文件名
参数7-逻辑值：输出类型，省略则默认为(.T.)逐份打印，否则逐页打印
参数8-字符值：当参数6为.T.时，设置要打印到的文件名

如：oExcel.ActiveSheet.PrintOut(1,3,6,.F.,"MyPrinter",.F.,.T.,,)　从1页打印到3页，打印6份，通过MyPrinter打印机来打印，并且，要逐份打印。