单元格文字太多，打印时有一部分会被遮挡该怎么办

飘零的四叶草_ · 发表于 2018-6-26 10:16

单元格文字太多，打印时有一部分会被遮挡该怎么办？一个一个单元格调整行高很麻烦有没有好的办法
正常显示

打印时显示（缩放比例为100%）

hzy831 · 发表于 2018-6-26 10:23

1、把单元格加大，2、把字体缩小（缩小字体填充）

飘零的四叶草_ · 发表于 2018-6-26 10:27

数量少还好数量多的话非常麻烦

hhjjpp · 发表于 2018-6-26 10:52

纯文字处理，适合word表格

ggmmlol · 发表于 2018-6-26 14:02

本帖最后由 ggmmlol 于 2018-6-26 14:45 编辑

Sub 批量增减行高()
Dim h, rng As Range, cel As Range, Area As Range, nh As Single, RngAdr$, tmp, i&
h = InputBox("请输入行高增量值", "批量增加选定区域的行高")
h = Val(h)
If h = 0 Then Exit Sub
RngAdr = "," & ActiveWindow.RangeSelection.EntireRow.Address
tmp = Split(RngAdr, ",")
Set rng = Range(tmp(1))
For i = 2 To UBound(tmp)
Set rng = Union(rng, Range(tmp(i)))
Next
Set rng = rng.Rows
Application.ScreenUpdating = False
For Each Area In rng.Areas
For Each cel In Area.Columns(1)
nh = cel.RowHeight + h
If nh < 0 Then nh = 0
cel.RowHeight = nh
Next
Next
End Sub

复制代码

gxl3369 · 发表于 2019-8-26 05:53

ggmmlol 发表于 2018-6-26 14:02

你这个我试过了，好像只能修改当前行，

coleman_lee · 发表于 2023-4-20 19:38

单元格内文字太多或者有多行文字，打印时有某些行会被遮导致打印出来文字不完全，如下图所示：

正常排版的文字：

打印时被遮挡的文字：

目前还没有好的办法解决这个问题，只能在多行文字单元格里最后面手工增加一个空行来解决。

大家有好的办法吗? 系统化的办法，不针对单元格执行的。

coleman_lee · 发表于 2023-4-20 19:40

hhjjpp 发表于 2018-6-26 10:52
纯文字处理，适合word表格

赞同，很多人对高级格式设置不熟悉，导致做什么都用Excel。如果是Word就不会有这些问题。

my0745 · 发表于 2023-4-22 14:43

术业有专攻啊

scmlcy · 发表于 2023-4-22 20:43

文字性的东西，有些时候确实没有word方便

		自动登录	找回密码
密码			免费注册

[求助] 单元格文字太多，打印时有一部分会被遮挡 该怎么办