固定纸张大小，选择区域打印

xiaomaoaini

正好需要，学习了

dzsrmyh

ysjjess 发表于 2024-8-16 09:57
我已经解决了，还是谢谢你！

是怎么解决的？能发一个吗？

ysjjess

dzsrmyh 发表于 2024-8-16 10:21
是怎么解决的？能发一个吗？

Sub HideUnselectedRange()
    Dim SelectedRange As Range
    Dim WholeRange As Range
    Dim Cell As Range

    ' 获取用户选择的区域
    Set SelectedRange = Selection

    ' 假设指定的区域为 A1:Z1000
    Set WholeRange = Range("$A$1:$L$1000")

    For Each Cell In WholeRange
        If Not Intersect(Cell, SelectedRange) Is Nothing Then
            ' 保留选中区域的格式不变
        Else
            ' 将未选择区域的字体颜色设置为白色，边框设置为无边框
            Cell.Font.Color = RGB(255, 255, 255)
            Cell.Borders.LineStyle = xlNone
        End If
    Next Cell

    ' 打印当前工作表

    ActiveSheet.PrintOut
End Sub