避免在Excel表中打印空视图/区域
创始人
2024-12-17 04:30:11
0

在Excel表中打印空视图/区域时,可以使用以下代码示例来解决问题:

Sub PrintNonEmptyRange()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 设置要打印的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要打印的区域
    With ws
        ' 查找最后一个非空单元格
        Set rng = .Cells.Find(What:="*", After:=.Cells(1, 1), LookIn:=xlFormulas, _
                              LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
                              MatchCase:=False)
        
        ' 如果找到了非空单元格
        If Not rng Is Nothing Then
            ' 设置打印区域为从A1到最后一个非空单元格的范围
            Set rng = .Range("A1:" & rng.Address)
            
            ' 打印指定的区域
            rng.PrintOut
        End If
    End With
End Sub

在上述代码中,我们首先定义了一个名为PrintNonEmptyRange的子过程。然后,我们声明了几个变量,包括一个Worksheet类型的变量ws和一个Range类型的变量rng

接下来,我们使用Set语句将ws设置为要打印的工作表,这里我们假设要打印的工作表是名为“Sheet1”的工作表。

然后,我们使用With语句设置了ws作为上下文,以便在后面的代码中可以直接引用该工作表。

With语句块中,我们使用Cells.Find方法来查找最后一个非空单元格。这里我们使用了一些参数来指定查找的条件,例如在公式中查找、部分匹配等。

如果找到了非空单元格,我们使用Range对象的Address属性获取该单元格的地址,并使用它来设置要打印的区域。这样,我们就得到了从A1到最后一个非空单元格的范围。

最后,我们使用PrintOut方法将指定的区域打印出来。

请注意,上述代码示例仅打印了从A1到最后一个非空单元格的范围。如果你有其他打印要求,可以根据实际情况进行修改。

相关内容

热门资讯

查到实测!欢乐达人十三水有没有... 查到实测!欢乐达人十三水有没有外 挂(透视)原来有挂(2022已更新)(哔哩哔哩)所有人都在同一条线...
1分钟了解!狂飙娱乐辅助器,中... 1分钟了解!狂飙娱乐辅助器,中至二人麻将有猫腻吗,扑克教程(有挂机密)1、玩家可以在中至二人麻将有猫...
玩家必备攻略!九九山城麻将ap... 玩家必备攻略!九九山城麻将app有挂吗(透视)果然真的是有挂(2021已更新)(哔哩哔哩)所有人都在...
六分钟了解!花花生活圈有挂吗,... 六分钟了解!花花生活圈有挂吗,闲逸碰胡辅助器,玩家教你(有挂科普)1、全新机制【花花生活圈有挂吗软件...
2分钟了解!决胜奕福跑得快有挂... 2分钟了解!决胜奕福跑得快有挂吗,福建老友麻将有挂的吗,2025新版总结(有挂黑科技);1.福建老友...
科普常识!赣南好友麻将是否可以... 科普常识!赣南好友麻将是否可以作假(透明挂)本来真的有挂(2024已更新)(哔哩哔哩);1、不需要A...
8分钟了解!白金岛放炮罚手气臭... 8分钟了解!白金岛放炮罚手气臭怎么打,蜜瓜大厅有挂吗,技巧教程(有挂详情);白金岛放炮罚手气臭怎么打...
教程攻略!大唐撸麻雀软件有挂吗... 教程攻略!大唐撸麻雀软件有挂吗(辅助挂)切实是有挂(2025已更新)(哔哩哔哩)1、大唐撸麻雀软件有...
4分钟了解!扎西茶楼如何开挂,... 4分钟了解!扎西茶楼如何开挂,福建十三水万能辅助器,爆料教程(有挂规律)1、构建自己的福建十三水万能...
实测分享!老友麻将有挂吗(辅助... 实测分享!老友麻将有挂吗(辅助挂)切实存在有挂(2022已更新)(哔哩哔哩)亲,关键说明,老友麻将有...