OLEAPP.ACTIVESHEET.range('a1').VALUE=OLEAPP.ActiveSheet.pagesetup.pages.count
OLEAPP.ActiveSheet.PageSetup.PrintGridlines=.T.


Ole app.activesheet.pagesetup(2).select 这个不对

这是录制的宏，楼主试下
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1

谢谢。小白一个，怎样执行这个语句才能得到答案

试试这个
OLEAPP.ActiveWindow.SelectedSheets.PrintOut(2, 2, 1)

这个不行，这个是打印第2页，会传到打印机。我目的是要这份文档 一共 5页，把第2页 按打印分印的格式 选出来保存，并不需要打印

oExcel.ActiveSheet.PrintOut(2，2，1)  &&& (从第2页起，到第2页止，共1份)

只要选定不要打印

f=oleapp.activesheet.hpagebreaks(1).location.address
如果你每页固定高度，这个可以取得首页区域

这是我能找到的文档，你自己试吧。只能帮你到这了。
◆打印当前工作表：oExcel.ActiveSheet.PrintOut() &&共八个参数
*参数1-数值：起始页号，省略则默认为开始位置
*参数2-数值：终止页号，省略则默认为最后一页
*参数3-数值：打印份数，省略则默认为1份
*参数4-逻辑值：是否预览，省略则默认为直接打印(.F.)
*参数5-字符值：设置活动打印机名称，省略则为默认打印机
*参数6-逻辑值：是否输出到文件，省略则默认为否(.F.)，若选.T.且参数8为空，则Excel提示输入要输出的文件名
*参数7-逻辑值：输出类型，省略则默认为(.T.)逐份打印，否则逐页打印
*参数8-字符值：当参数6为.T.时，设置要打印到的文件名

很有帮助，谢谢，收藏了