vba解决excel打印时线框压住文字的现象

1、打开excel，在下方sheet名字上右键，选择“查看代码”。

2、在打开的vba编辑器中，输入一下代码

Sub test()

    iRowFirst = 4      ' 要加高的第一行

    iRowLast = 101     ' 要加高的最后一行

    iHeigh = 3         ' 加高的像素，自己调节到合适数值

    For i = iRowFirst To iRowLast

        Rows(i).RowHeight = Rows(i).RowHeight + iHeigh

    Next

End Sub

3、点击vba编辑器上方的绿色三角，或按f5，运行脚本。