none
2010版EXECL中打印整个工作薄时,各个工作表的页码能否相互独立? RRS feed

  • 问题

  • 一个工作薄中有多个工作表,为了迅速打印,我选择""打印整个工作薄"可是打印出来的总页数是整个工作薄的总页数,不是各个工作表的总页数,例如:假如工作薄中有2个工作表,工作表1共5页,工作表2共3页,.打印出来是:"第*页,共8页".我不想让这样,我相让总页数是各个工作表的页数,例如:对工作表1是"第*页,共5页",对工作表2是"第*页,共3页.",还有里面好像没有报告管理器了吧?
    2010年11月8日 1:28

全部回复

  • Sub sample()
    Dim MyShtC As Long
    For MyShtC = 1 To Sheets.Count
        Sheets(MyShtC).PrintOut Copies:=1
    Next
    End Sub

    在单元格里横行的……

    QQ:76332468

    www.excelpx.com

    www.exceljy.com

    www.access-cn.com/vvb/

    专业方向:EXCEL操作

    2010年11月10日 3:43
  • 恩    pureshadow的代码就是让你遍历所有的Sheet,每一个Sheet打印一份。

    2010年11月15日 9:35