老师们，打印工作表时可否跳过符合条件的页面不打印呢？谢谢

wtqzhjb

各位朋友、老师们：
  如题。有张工作表，存在几十个固定页面（每页已经设置固定分页符），需要打印。
  但是，个别页面 是空白（数据为0），需要跳过，不打印，以免浪费。这些页面的特点统一是：分页符后面的第五行（数据为0）。

  如何实现在一次性打印这张工作表中的几十个打印页面时，跳过这些 打印页面 分页符后面的第五行数据为0的页面不打印呢？
  谢谢大家！
  

3190496160

注册了19年的老会员，发了一百多个帖子，还不知道求助要上传附件？？？

wtqzhjb

用了个笨办法解决了
1、先用公式获得要打印的页面的页面编号，第几页，存在表中某几列，然后打印前复制出去弄来在另一列AK列排序，获得打印页面的页面编号（比如1、3、4、5、9……29、30……）
2、打印程序中，只需要获得这一页面编号数据 x，就可以选择性打印
        For i = 1 To x
            ActiveSheet.PrintOut From:=Range("AK" & i).Value, TO:=Range("AK" & i).Value
        Next i
突然发现，老师一批评就有灵感了

wtqzhjb

因为打印的页面排版是固定的，不打印的页面用公式识别比较简单，就是每页 第五行数据为0，所以可以直接统计出哪些页面需要打印

zyhui1961

3190496160 发表于 2023-3-12 09:57
注册了19年的老会员，发了一百多个帖子，还不知道求助要上传附件？？？

有时间帮忙看成一下呗，不胜感激！
https://club.excelhome.net/thread-1656313-1-1.html