求大神帮助批量打印格式问题

洞房不败

这个模板哪里都好就是打印的时候格式不对，请大牛帮忙修改下代码，为什么从第二页起打印的格式就不正确了，急求！最好能在我文件上修改完上传！我已经测试很多遍了 就是找不到头绪

看见星光

最后增一段统一格式的代码：
Sub tFormat()
Rows("1:16").Copy
Rows("17:" & Cells(Rows.Count, 1).End(3).Row).PasteSpecial Paste:=xlPasteFormats
[a1].Select
End Sub

洞房不败

看见星光 发表于 2018-3-11 11:20
最后增一段统一格式的代码：
Sub tFormat()
Rows("1:16").Copy

谢谢大牛回复，我自己试了 还是不行 是不是我之前整段代码都有问题

看见星光

洞房不败 发表于 2018-3-11 11:26
谢谢大牛回复，我自己试了 还是不行 是不是我之前整段代码都有问题

除了行高有问题外，还有哪里有问题呀？数据木有发现有问题啊？

洞房不败

看见星光 发表于 2018-3-11 11:29
除了行高有问题外，还有哪里有问题呀？数据木有发现有问题啊？

数据没有问题，就是批量打印的时候格式不对，不能全打印在一页纸上

洞房不败

看见星光 发表于 2018-3-11 11:29
除了行高有问题外，还有哪里有问题呀？数据木有发现有问题啊？

Sub tFormat()
Rows("1:16").Copy
Rows("17:" & Cells(Rows.Count, 1).End(3).Row).PasteSpecial Paste:=xlPasteFormats
[a1].Select
End Sub

chxw68

详见附件。

洞房不败

chxw68 发表于 2018-3-11 13:15
详见附件。

谢谢您！我批量打印测试下

洞房不败

chxw68 发表于 2018-3-11 13:15
详见附件。

好用 已解决

chxw68

1. Sub test2()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Application.ScreenUpdating = False
   
5.   Application.DisplayAlerts = False
   
6.   With Worksheets("数据")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     arr = .Range("a2:f" & r)
   
9.   End With
   
10.   With Worksheets("准考证")
    
11.     ks = .Range("l3")
    
12.     js = .Range("m3")
    
13.     .Range("a1:i" & .Rows.Count).Clear
    
14.     ks = Application.Min(ks, UBound(arr))
    
15.     js = Application.Min(js, UBound(arr))
    
16.     m = 1
    
17.     n = 1
    
18.     For i = ks To js
    
19.       With .Cells(m, n)
    
20.         .Value = "企  业"
    
21.         .Resize(1, 4).Merge
    
22.         With .Font
    
23.           .Size = 16
    
24.           .Bold = True
    
25.         End With
    
26.         .HorizontalAlignment = xlCenter
    
27.         .VerticalAlignment = xlCenter
    
28.       End With
    
29.       With .Cells(m + 1, n)
    
30.         .Value = "银  行  卡"
    
31.         .Resize(1, 4).Merge
    
32.         With .Font
    
33.           .Size = 16
    
34.           .Bold = True
    
35.         End With
    
36.         .HorizontalAlignment = xlCenter
    
37.         .VerticalAlignment = xlCenter
    
38.       End With
    
39.       .Cells(m + 3, n) = "姓名:"
    
40.       .Cells(m + 5, n) = "车间:"
    
41.       .Cells(m + 7, n) = "卡号:"
    
42.       .Cells(m + 9, n) = "备注:"
    
43.       .Cells(m + 11, n) = "注意:"
    
44.       .Cells(m + 3, n + 1) = arr(i, 2)
    
45.       .Cells(m + 5, n + 1) = arr(i, 3)
    
46.       .Cells(m + 7, n + 1) = arr(i, 4)
    
47.       With .Cells(m + 11, n + 1)
    
48.         .Resize(1, 3).Merge
    
49.         .Value = arr(i, 6)
    
50.       End With
    
51.       With Union(.Cells(m + 3, n + 1), .Cells(m + 5, n + 1), .Cells(m + 7, n + 1), .Cells(m + 9, n + 1), .Cells(m + 11, n + 1), .Cells(m + 11, n + 2))
    
52.         With .Borders(xlEdgeBottom)
    
53.           .LineStyle = xlContinuous
    
54.           .Weight = xlThin
    
55.         End With
    
56.       End With
    
57.       n = n + 5
    
58.       If n > 6 Then
    
59.         n = 1
    
60.         m = m + 13
    
61.       End If
    
62.     Next
    
63.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
64.     For i = 27 To r Step 26
    
65.       .HPageBreaks.Add Before:=.Rows(i)
    
66.     Next
    
67.   End With
    
68. End Sub
    

复制代码