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

eikok

如何按打印份数设置页脚?
就是说一个工作表打印10份，页码就是从1到10页？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-26 09:12

1. Sub Ma()
   
2.     Dim lCount As Integer
   
3.     On Error Resume Next
   
4.     lCount = InputBox("请输入要打印的份数", "提示", 1)
   
5.     Dim i As Integer
   
6.     For i = 1 To lCount
   
7.         With ActiveSheet.PageSetup
   
8.             .CenterFooter = "第" & i & " 份,第&P 页"
   
9.         End With
   
10.         '打印预览
    
11.         ActiveSheet.PrintPreview
    
12.         '打印
    
13.         'ActiveSheet.PrintOut
    
14.     Next
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

苗凱

1. Option Explicit
   
2. 
   
3. Sub Ma()
   
4. '
   
5. 
   
6. '
   
7. '
   
8. '
   
9. '
   
10.     With ActiveSheet.PageSetup
    
11.         .PrintTitleRows = ""
    
12.         .PrintTitleColumns = ""
    
13.     End With
    
14.    
    
15.     With ActiveSheet.PageSetup
    
16.       
    
17.       
    
18.         .CenterFooter = "第 &P 页"
    
19.       
    
20.       
    
21.         .PrintHeadings = False
    
22.         .PrintGridlines = False
    
23.         .PrintComments = xlPrintNoComments
    
24.       
    
25.         .CenterHorizontally = False
    
26.         .CenterVertically = False
    
27.      
    
28.         .Draft = False
    
29.       
    
30.         .FirstPageNumber = xlAutomatic
    
31.         .Order = xlDownThenOver
    
32.         .BlackAndWhite = False
    
33.    
    
34.       
    
35.     End With
    
36. End Sub
    

复制代码

瞎猜的  楼主试试

eikok

苗凱 发表于 2014-2-26 08:17
瞎猜的  楼主试试

我的意思一是个工作表打印2份
打印时候相同内容的出2份
但是第一份的页脚是“第一页”
第二份的页脚是“第二页”

hwc2ycy

这个除非你自己写打印过程，不能通过点系统的打印来实现。
而且打印的时候你要通过对话框（或通过别的方式）问是要打几份，这样才能实现了。

eikok

hwc2ycy 发表于 2014-2-26 08:34
这个除非你自己写打印过程，不能通过点系统的打印来实现。
而且打印的时候你要通过对话框（或通过别的方式 ...

对了，
基本就是版主说的
我也表述不清
求相关代码
或相关的学习教程

leolee82

把这个表复制N份，直接打印1－10页
操作起来很快啊

hwc2ycy

eikok 发表于 2014-2-26 08:41
对了，
基本就是版主说的
我也表述不清

前面回复的代码稍微改下就可以了，加个循环。
打印的份数你可以直接有msgbox来实现。
然后再上面的代码中外面加个循环，从1到打印份数，这样就差不多了。

eikok

hwc2ycy 发表于 2014-2-26 08:54
前面回复的代码稍微改下就可以了，加个循环。
打印的份数你可以直接有msgbox来实现。
然后再上面的代码 ...

求版主出手{:1112:}

eikok

leolee82 发表于 2014-2-26 08:44
把这个表复制N份，直接打印1－10页
操作起来很快啊

怎么快速复制50张工作表？

hwc2ycy

1. Sub Ma()
   
2.     Dim lCount As Integer
   
3.     On Error Resume Next
   
4.     lCount = InputBox("请输入要打印的份数", "提示", 1)
   
5.     Dim i As Integer
   
6.     For i = 1 To lCount
   
7.         With ActiveSheet.PageSetup
   
8.             .CenterFooter = "第" & i & " 份,第&P 页"
   
9.         End With
   
10.         '打印预览
    
11.         ActiveSheet.PrintPreview
    
12.         '打印
    
13.         'ActiveSheet.PrintOut
    
14.     Next
    
15. End Sub
    

复制代码