Dzwebs.Net

撰写电脑技术杂文十余年

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

Admin | 2010-8-13 20:27:06 | 被阅次数 | 15051

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  一、打印当前工作簿

  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打印机来打印,并且,要逐份打印。


该杂文来自: Excel杂文

上一篇:通过ActiveWorkbook.Sheets.Add将新表插入到最后

下一篇:Excel单元格出现#NAME?的原因及解决办法

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计