怎么会点打印会打印出空白的数据

gameskin

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim iRow&, Cols%, Rows%, tmpR As Range
Cols = 6
If ActiveSheet.Name = "每天用纸" Then
    With Sheets("每天用纸")
        Rows = .Cells(65536, Cols).End(xlUp).Row - 3
        Set tmpR = .Cells(4, 1).Resize(Rows, 6)   '获取数据区，并赋给tmpR
    End With
    With Sheets("每天用纸明细")
        iRow = .Cells(65536, Cols).End(xlUp).Row + 1  '求最末行+1
        .Cells(iRow, 1).Resize(Rows, 6) = tmpR.Value  '复制数据区
    End With
    tmpR.ClearContents  '清除数据区，避免重复打印。也可以删除此行
End If
End Sub

shuyee

把这句删掉:
tmpR.ClearContents  '清除数据区，避免重复打印。也可以删除此行
还有，不要总是起新主题，在原主题上回复，我会来看的。