避免在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到最后一个非空单元格的范围。如果你有其他打印要求,可以根据实际情况进行修改。

相关内容

热门资讯

玩家必备攻略!德州透视hhpo... 玩家必备攻略!德州透视hhpoker,wpk俱乐部是做什么的,真是是真的有挂(有挂秘诀)所有人都在同...
9分钟了解!拱趴大菠萝有什么挂... 9分钟了解!拱趴大菠萝有什么挂,hhpoker免费辅助器,本来真的有挂(竟然有挂)9分钟了解!拱趴大...
每日必备!德州局透视,如何判断... 每日必备!德州局透视,如何判断wpk辅助软件的真假,真是存在有挂(有挂存在)1、下载好脚本下载之后点...
推荐十款!hhpoker智能辅... 推荐十款!hhpoker智能辅助插件,hhpoker免费透视脚本,好像是有挂(发现有挂)1、游戏颠覆...
普及知识!哈糖大菠萝有挂吗,a... 普及知识!哈糖大菠萝有挂吗,aa poker透视软件,好像真的有挂(有挂实锤)1、金币登录送、破产送...
我来教教你!wpk辅助插件,佛... 我来教教你!wpk辅助插件,佛手在线大菠萝辅助,本来存在有挂(有挂透视)运佛手在线大菠萝辅助辅助工具...
分辨真假!pokernow辅助... 分辨真假!pokernow辅助控制,wepoker好友助力码,一贯有挂(有挂分析)小薇(辅助器软件下...
最新技巧!fishpoker透... 最新技巧!fishpoker透视底牌,wpk透视辅助靠谱吗,总是是真的有挂(有挂秘笈)1、最新技巧!...
三分钟了解!wpk有作弊吗,有... 三分钟了解!wpk有作弊吗,有哪些免费的wpk作弊码,总是真的是有挂(有挂细节)在进入软件靠谱后,参...
带你了解!wpk私人局辅助是真... 带你了解!wpk私人局辅助是真的吗,sohoo辅助,总是真的是有挂(证实有挂)1、玩家可以在线上大神...