关于动态打印页的设置问题

口是心非

需打印的内容为动态的，打印区域也设定的是动态的，有时候一页，有时候两页（只有这两种情况），
如果打印的内容为一页时，点击打印机后，则只打印一页；如果打印的内容为两页，则当我点击
打印机，打印完第一页后，自动弹出对话框询问是否继续打印，如继续打印，请点击确定，否则
点击取消，这样做的目的主要是节约纸张，当打印完毕第一张后弹出对话框的间隔里将纸张反面放置，然后继续打印。。
以上是我的要求，请各位帮忙了，多谢。

[ 本帖最后由 口是心非 于 2010-1-27 20:29 编辑 ]

lu_zhao_long

原帖由 口是心非 于 2010-1-26 19:55 发表
需打印的内容为动态的，打印区域也设定的是动态的，有时候一页，有时候两页（只有这两种情况），
如果打印的内容为一页时，点击打印机后，则只打印一页；如果打印的内容为两页，则当我点击
打印机，打印完第一页后 ...

上传附件！

口是心非

已上传附件，请看一楼，多谢。

另外多提一问：
我想对A13:N21区域进行加密保护（不允许其他人修改）并将B19单元格公式隐藏。
但当我设定密码保护后，代码会报错，提示：
运行时错误"-2147417848（80010108）"
方法add作用于对象validation错误。
如果不设定保护密码，则代码运行是正确的！

[ 本帖最后由 yuanzhuping 于 2010-1-26 23:15 编辑 ]

口是心非

原帖由 lu_zhao_long 于 2010-1-26 20:20 发表

上传附件！

请老师帮忙看看，多谢

yuanzhuping

如果打印的内容为两页，则当我点击
打印机，打印完第一页后，自动弹出对话框询问是否继续打印，如继续打印，请点击确定，否则
点击取消，然后停止打印。

你的意思是说如果打印的内容有两页，第二页有可能不打印？

yuanzhuping

原帖由 口是心非 于 2010-1-26 20:28 发表
已上传附件，请看一楼，多谢。

另外多提一问：
我想对A13:N21区域进行加密保护（不允许其他人修改）并将B19单元格公式隐藏。
但当我设定密码保护后，代码会报错，提示：
运行时错误"-2147417848（80010108）"
...

使用ADD方法在单元格添加数据有效时，因为工作表是保护的，所以出错，在添加的代码前加上取消工作表保护的代码，添加后再用代码保护工作表。

口是心非

原帖由 yuanzhuping 于 2010-1-26 23:12 发表


你的意思是说如果打印的内容有两页，第二页有可能不打印？

我的意思是说，如果打印的内容有两页，为了节约纸张，当打印完毕第一页后，做一提示，提示内容为“是否继续打印”，这样我就可以在继续打印前将纸张换到空白一面，然后我再确认继续打印。这样的结果是正反面打印的效果。呵呵。不知讲明白了吗、

yuanzhuping

这个如果直接打印的话不好办啊。
可以用代码打印，自己看下Sheets.PrintOut 方法的帮助，其中From是打印的开始页号，to是打印的终止页号，打印用分页符判断一下页数,也可以用工作表中的行数来判断，反正最多是两页。
代码
IF 两页 then
  Sheets1.PrintOut  From:=1, to:=1
  if  msgbox ("两页，是否打印？" ,36)=6 then
     Sheets1.PrintOut  From:=2, to:=2
  else
    exit sub
end if
else
   Sheets1.PrintOut  
end if
大概的代码，我这没打印机不好测试。

口是心非

多谢袁版指点，我测试一下，。呵呵

口是心非

按照袁版的指点，还是没能琢磨出来，请高手继续支招！多谢。