首页 > 解决方案 > 为什么我在缩放以适应页面 VBA 时会出现空格

问题描述

我正在尝试将我的单元格从 A1 缩放到 B16,以适应页面。但它不起作用。仍然有大量的白色间距。看不到我做错了什么。

链接到具有大量空格的数据

Sub PrintActiveSheet()
    Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
    With ws.PageSetup
             .Zoom = False
             .FitToPagesWide = 1
             .FitToPagesTall = 1
             .PrintArea = "A1:B16"
    End With

End Sub

标签: htmlvba

解决方案


推荐阅读