如何在每页后打印一个固定的表格

燕雀安知

linyh1742595842 发表于 2015-5-6 16:38
老师！可否增加（第 x 页/共 x 页）的功能? 再加一个条件，打印时间。

答：
1.每页的表头设置，Excel页面设置中就有（太不应该了，至今还不明这一点；当初不回复，想着你迟早自行发现）；
2.添加“第x页/共y页”以及打印时间不是不可能，但你想过没有，上述内容位于行中哪个位置（左侧？居中亦或右侧？）；
3.承第2点，即便明确了位置，实际使用中的表格宽窄不同，必须写代码判断，想达到智能化，岂是那么容易的；
4.不想写的另一原因是，如果扩充代码，添加功能，代码将大大复杂化，且弱化了本主题想达到的目的。本人写码时并没想过把其写成什么工具，更没想着让其代码量规模接近一个小软件。VBA吸引人的地方是简单、灵活和随意，一事一码最高效。

linyh1742595842

燕雀安知 发表于 2015-5-6 17:21
答：
1.每页的表头设置，Excel页面设置中就有（太不应该了，至今还不明这一点；当初不回复，想着你迟早自 ...

因为老师写的代码我基本上百分之70%看不懂，所有更别想修改了。

linyh1742595842

燕雀安知 发表于 2015-5-6 17:21
答：
1.每页的表头设置，Excel页面设置中就有（太不应该了，至今还不明这一点；当初不回复，想着你迟早自 ...

我打印的也不多，如果可以实现就更好，

燕雀安知

linyh1742595842 发表于 2015-5-6 17:29
我打印的也不多，如果可以实现就更好，

所以，我才说，一事一码。

另：看不懂他人代码很正常，相信随着时间推移，很多他人的代码你看都不想看了，因为水平提高了后，猜都能猜着他人大概是怎么写的，你关注的仅是其代码中的思路或某一点而已。代码量少、功能简单的代码，瞄一眼你都嫌其写得没你好了。打个比方，你不是关注且帮助过一个帖子么，如何准确定位某个按钮以便将其删除是你很关注的问题，他人跟帖，你首先想的是，这个家伙能不能有效地把特定按钮给删了啊，故看帖，盯着Application.Caller的语句就行了，其它都是次要的，因为你也可以写出来，当然了，若觉那家伙其余的代码写得不赖，比你强，那就顺便借鉴下。

最后：本人还没达到上述“看都不想看”的水平，努力中。

linyh1742595842

燕雀安知 发表于 2015-5-6 17:44
所以，我才说，一事一码。

另：看不懂他人代码很正常，相信随着时间推移，很多他人的代码你看都不想看 ...

以前几次求助都没有人帮助解决，所以就在论坛找资料，
把自己的问题解决了，现在倒好简单的我也可以写出来了，
现在看到简单的帖子就帮帮哪些比我弱的，呵呵。

燕雀安知

linyh1742595842 发表于 2015-5-6 17:54
以前几次求助都没有人帮助解决，所以就在论坛找资料，
把自己的问题解决了，现在倒好简单的我也可以写出 ...

忽然想到，不对，你的要求若无特殊需求（比如，打印半页内容时，页脚在页的底端，显得不符合你的要求），Excel自带的页脚设置功能就可满足。

linyh1742595842

燕雀安知 发表于 2015-5-6 18:27
忽然想到，不对，你的要求若无特殊需求（比如，打印半页内容时，页脚在页的底端，显得不符合你的要求）， ...

打印比较少，所以没有去研究，不知道怎么去设置，

燕雀安知

linyh1742595842 发表于 2015-5-6 18:40
打印比较少，所以没有去研究，不知道怎么去设置，

归根结底，Excel基础知识欠缺。

题外话：还是先补补基础知识，然后再深究VBA吧。


另：还好，没去写那什么页脚内容的代码。竟然不知页脚和页眉的设置，太让人不可思议了。

linyh1742595842

燕雀安知 发表于 2015-5-6 19:21
归根结底，Excel基础知识欠缺。

题外话：还是先补补基础知识，然后再深究VBA吧。

老师说句实在活，excel基础知识肯定欠缺，我接触excel是从2013年底才开始的。

Vicel

linyh1742595842 发表于 2015-5-6 16:38
老师！可否增加（第 x 页/共 x 页）的功能? 再加一个条件，打印时间。

另类的解题方法：循环隐藏行区域内容以达到每页后打印一个固定表格的效果

1. Sub test()
   
2.     Dim ar, rng As Range, r&, m&, n&, T$
   
3.     With ActiveSheet
   
4.         ar = .UsedRange
   
5.         n = .HPageBreaks.Count
   
6.         If n = 0 Or .HPageBreaks(1).Location.Row > UBound(ar) Then
   
7.             .PrintOut
   
8.         Else
   
9.             T = Now
   
10.             s = .HPageBreaks(1).Location.Row
    
11.             Set rng = .Cells.Find("施工单位", , , 1)
    
12.             If Not rng Is Nothing Then
    
13.                 r = rng.Row
    
14.             End If
    
15.             m = s - (UBound(ar) - r + 1) - 1
    
16.             For i = 1 To n + 2
    
17.                 .Rows("1:" & r - 1).Hidden = True
    
18.                 s = (i - 1) * m + 1
    
19.                 .Rows(s).Resize(m, 1).EntireRow.Hidden = False
    
20.                 .PageSetup.CenterFooter = "第" & i & "页，共" & n + 2 & "页"
    
21.                 .PageSetup.RightHeader = T
    
22.                 .PrintPreview
    
23.             Next i
    
24.             .Rows("1:" & r - 1).Hidden = False
    
25.             .PageSetup.CenterFooter = ""
    
26.             .PageSetup.RightHeader = ""
    
27.         End If
    
28.     End With
    
29. End Sub
    

复制代码

在每页后打印一个固定的表格.zip (25.18 KB, 下载次数: 50)

2015-5-6 21:40 上传

点击文件名下载附件