excel中解决多行文本自动调整行高后打印预览还是显示不全情况

 注意:此方法对于多行合并后单元格行高调整不适用,需要手动调整,如大家有简便方法,欢迎评论。

一、调整表格为自动调整行高

1)点击此处全选表格

 2)在第一行序号单元格的下端,鼠标成黑十字时,双击。(或者开始菜单---格式---自动调整行高)

 此时,文字其实还是过于紧凑。

二、批量增加所有行的行高值

以下为转载内容,感谢博主的分享。

————————————————
版权声明:本文为CSDN博主「黑鸦log」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:

EXCEl有自动调整行高的功能,但是自动调整的行高十份紧凑,打印时会出现部分行的字下半截看不见的问题。

行不多时,可以手动调整行高,但行数超过百行后,手动工作量太大, 现使用VBA的方式进行批量调整行高,对微软和WPS的excel都适用,这里我使用WPS。

1.调出开发工具标签

 依次选择 文件->选项->自定义功能区->勾选开发工具

2.插入代码

在开发工具栏中选择VB编辑器

 

 粘贴入下面代码

Sub HeightTo()

    Application.ScreenUpdating = False
    For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
        If Application.WorksheetFunction.CountA(Rows(i)) > 0 Then
            Rows(i).RowHeight = Rows(i).RowHeight + 14
        End If
    Next i
    Application.ScreenUpdating = True

End Sub

 代码中有两个参数可以根据实际情况自行修改

For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

上述 1 表示从第1行开始自动调整行高,根据自己表格进行修改。

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

上述的 14 ,表示每行增加的行高是多少,可根据自己表格情况和打印机情况进行修改。

3.批量调整行高(这步在一中已经完成,此处可以直接运行即可)

选择表格所有列,并在任一列的间隔处双击,使用excvel自动调整行高功能,使表格变得紧缩。
回到VBA编辑界面,单击运行按钮。

完成!

最近更新

  1. docker php8.1+nginx base 镜像 dockerfile 配置

    2024-01-08 03:42:01       94 阅读
  2. Could not load dynamic library ‘cudart64_100.dll‘

    2024-01-08 03:42:01       100 阅读
  3. 在Django里面运行非项目文件

    2024-01-08 03:42:01       82 阅读
  4. Python语言-面向对象

    2024-01-08 03:42:01       91 阅读

热门阅读

  1. 讲解eureca和nacus的区别

    2024-01-08 03:42:01       51 阅读
  2. Kvaser使用(Can总线)

    2024-01-08 03:42:01       197 阅读
  3. 数据库连接使用问题 - 1

    2024-01-08 03:42:01       57 阅读
  4. Docker学习笔记(一):Docker命令总结

    2024-01-08 03:42:01       65 阅读
  5. 学习录

    学习录

    2024-01-08 03:42:01      50 阅读
  6. 【深度学习在时序数据异常检测中的创新】

    2024-01-08 03:42:01       51 阅读
  7. tyxsspa/AnyText 阿里生成文字

    2024-01-08 03:42:01       61 阅读
  8. unittest框架管理测试用例

    2024-01-08 03:42:01       57 阅读
  9. Iceberg: 列式读取Parquet数据

    2024-01-08 03:42:01       72 阅读