打印自动分页问题，有合并单元格和标题，两项尽量打印在一起

q5523521

各位大神早上好呀，有个宏命令望得到各位大神指点，执行的时候合并单元格内容打印的时候给拆开了，希望标题连同合并单元格打印在一张纸上，单独的一箱一张纸打印不了提示一下去缩小一箱内容的行高。

半百

q5523521

半百 发表于 2024-1-18 21:27

刚才试了一下还是不可以呢

q5523521

半百

q5523521 发表于 2024-1-19 10:02
刚才试了一下还是不可以呢

附件来了。

q5523521

半百 发表于 2024-1-19 10:09
附件来了。

您好，是可以分了页了，但是这个44和43箱是可以打印在一页上的，相当于一箱一页纸了些许浪费了有些，可以判断哪几箱合并在一页上么，一箱带有标题或者多箱子带有标题判断是否能在一页上直接打印，并且内容不拆开，谢谢您

半百

q5523521 发表于 2024-1-19 11:07
您好，是可以分了页了，但是这个44和43箱是可以打印在一页上的，相当于一箱一页纸了些许浪费了有些，可以 ...

请测试

1. Sub 自动精准分页()
   
2. ActiveSheet.ResetAllPageBreaks
   
3. i = 4
   
4. Do While Cells(i, 5) <> ""
   
5.     If Cells(i, 5) <> Cells(i - 1, 5) Then
   
6.         If n >= 8 Then
   
7.             If r > 0 Then
   
8.                 ActiveSheet.HPageBreaks.Add Cells(r, 1)
   
9.             End If
   
10.             n = i - r
    
11.             If n >= 8 Then
    
12.                 ActiveSheet.HPageBreaks.Add Cells(i, 1)
    
13.                 n = 0
    
14.                 r = 0
    
15.             Else
    
16.                 r = i
    
17.             End If
    
18.         Else
    
19.             r = i
    
20.         End If
    
21.     Else
    
22.         n = n + 1
    
23.     End If
    
24.     i = i + 1
    
25. Loop
    
26. End Sub
    

复制代码

q5523521

半百 发表于 2024-1-19 13:17
请测试

6 7可以是一页的 还是分开啦

半百

q5523521 发表于 2024-1-19 16:23
6 7可以是一页的 还是分开啦

你的附件中，设置的每页最多只能显示9行（含表头），你这里要显示13行，肯定显示不了。那你要它放到一页，有什么理由？总要有个规律的。

q5523521

半百 发表于 2024-1-19 18:10
你的附件中，设置的每页最多只能显示9行（含表头），你这里要显示13行，肯定显示不了。那你要它放到一页 ...

明白了，谢谢