[已解决]如何按打印份数设置页脚?

hwc2ycy

代码先是测试预览的效果了，合乎要求的话你就注释预览的代码，启用打印的代码。

eikok

hwc2ycy 发表于 2014-2-26 09:12

顶礼膜拜一下啊
版主出手不同凡响{:1112:}

孔梦茵

看起来好复杂，我什么时候有这水平。

苗凱

eikok 发表于 2014-2-26 08:23
我的意思一是个工作表打印2份
打印时候相同内容的出2份
但是第一份的页脚是“第一页”

1. Set Ep = CreateObject("Excel.Application")      
   
2. 
   
3. Ep.Visible = true
   
4. 
   
5. Set op = Ep.WorkBooks.open("D:\book1.xls")
   
6.    
   
7. op.Sheets(Array("sheet1","sheet2")).Select
   
8. 
   
9. for each sht in Ep.windows(1).selectedsheets
   
10.         sht.pagesetup.centerfooter="第 &p 页"
    
11. next
    
12. Ep.windows(1).selectedsheets.printout        

复制代码

.....................

leolee82

eikok 发表于 2014-2-26 09:01
怎么快速复制50张工作表？

先复制一个，然后选择复制的和初始的两个表，再复制，这样就4个表了，再重复4次。
不过需要的页数较多还是VBA方便。
也可以先转成PDF，复制N份，合并，再在PDF中加页码

如果经常做这类事情还是写个VBA方便