[已解决]各位老师帮忙看这段代码该怎么修改

BAIXINGR

我现在要做的是.想如果数据大于或者小于一页时.都能保证在除数据以外进行整页
打印空行，然后才是合计那行。不知道说明白没

最佳答案

月排行榜 / 总排行榜

dongqing1998

2011-2-6 19:37

附件传错了吗？再传一次。

跳转到最佳答案楼层

dongqing1998

Sub 打印()
    Dim i%, k%, arr, brr()
    arr = Sheet2.Range("a2").CurrentRegion
    On Error Resume Next
    For i = 1 To UBound(arr)
        If arr(i, 1) = Sheet1.Range("d2") Then
            k = k + 1
            ReDim Preserve brr(1 To 3, 1 To k)
            brr(1, k) = k
            brr(2, k) = arr(i, 2)
            brr(3, k) = arr(i, 3)
        End If
    Next
    Sheet1.Range("a4:e" & Cells(Rows.Count, 1).End(xlUp).Row).Clear '清空数据
    Sheet1.Range("a4").Resize(UBound(brr, 2), UBound(brr)) = Application.Transpose(brr) '删除行
   
    If UBound(brr, 2) < 26 Then
        With Sheet1.Range("a30")
            .Value = "合计"
            .Offset(0, 2) = Application.Sum(Range("c2:c" & Cells(Rows.Count, 1).End(xlUp).Row - 1))
            .Offset(1, 0) = "盘点人:"
            .Offset(1, 2) = "日期:"
        End With
        Sheet1.Range("a2:e31").Borders.LineStyle = xlContinuous
    Else
        With Sheet1.Range("a65536").End(xlUp)
            .Offset(1, 0) = "合计"
            .Offset(1, 2) = Application.Sum(Range("c2:c" & Cells(Rows.Count, 1).End(xlUp).Row - 1))
            .Offset(2, 0) = "盘点人:"
            .Offset(2, 2) = "日期:"
        End With
    End If
   
    With Sheet1
        .Range("a1").CurrentRegion.Borders.LineStyle = xlContinuous
        .Cells.HorizontalAlignment = xlCenter
        .PrintOut
    End With
End Sub

BAIXINGR

回复 dongqing1998 的帖子

先谢谢楼上的
不过还没有达到我的要求
你的只是实现了，在不满一页时，一下空行，我是想，不管是不满一页，两页或者更多页时在最后一页都能留有空行，如果刚好是满也时，就不用留空行了，不知道说明白没。

dongqing1998

根据你的需要自己调整吧

过江龙

BAIXINGR 发表于 2011-2-5 16:41
回复 dongqing1998 的帖子

先谢谢楼上的

看看是不是这样效果。 副本Book3.rar (13.86 KB, 下载次数: 13)

2011-2-5 19:58 上传

点击文件名下载附件

dongqing1998

发现了一点错误，重新修改一下代码(防止打印出没有数据的空白页)。
PS:代码是按表中图片所示的页面设置写的，可以根据你自己的实际需要进行适当调整(主要是每页打印行数)。

dongqing1998

附件传错了吗？再传一次。