excel2007行高自动调整 打印显示不全

我在百度搜索此问题，找出200多万个结果。点了几十个，回答的人无数，什么垂直居上、设置显示比例100%，甚至连Alt+回车、调显示器DPI的都出来了。没一个靠谱的。没有人答对。
我刚好有一个文件，有1000多行，内容长短不了，按网上的自动行高各种方法，试过，都没有一个100%完美的。。难道要我一行一行地调？简直要命。。
但我最终找到了答案，非常简单。。。顿时喜出望外。。
我在思考要不要告诉世人。。

下过来拿我的一个1000多行的xls文件试了一下这个插件，行不通。。很多半个字或缺行。

抱歉！这么久才公布我的答案。
其实我当时帮一顾客打印一份1000多题的机动车考试的试题，EXCEL表格的，约1200行，10列，宽度不一，高度不一。我用的是EXCEL2013版本。这份文件我现在依然保留着。
当时我点左上角的三角形全选表格，工具栏：格式---自动调整行高，（见图1红圈）
一看，果然全部调整好了（图1蓝圈中内容显示正常），但在打印预览的时候傻眼了，很多很多行中的文字像蓝圈一样显示不全（如图2所示），不是缺一些字就是最后一行字只显示上半部分。
难道让我一行一行地检查，看它们显示是不是全不全？再一行一行地调？
后来经过多次试验，发现只要在工具栏先将”视图“改成”页面布局“，然后点左上角三角形全选表格，再进入到图1中的工具栏”开始---格式---自动调整行高“，后面不要再调整，不论是在普通视图还是页面布局视图，打印预览都会没有问题。
也就是说：一定要在页面布局视图的情况下自动调整行高才准。就这么简单！

其实很想说一句，解决问题还得找到产生问题的根本原因才行啊，关于excel打印时行高不够，显示不全的问题，究其原因，是由于excel在打开时加载的样式字体和你表格中设置的字体不一致导致的，因为不同字体在excel中占用的空间不一样，所以就导致了会显示不全的情况，表格行数少的时候，可以手动拉一拉，如果表格各行的字数不规则，而且行数很多的时候，手动拉高的方式就不适用了，这时候需要修改excel的样式字体才能解决打印时行高不够的问题（excel转PDF也存在同样问题），假如你表格中的字体是仿宋体，打印时行高不正确的具体操作步骤如下：

开始-->样式-->点击小三角，进入下拉菜单

右键点击“常规”，弹出的菜单中点击修改

在弹出的对话框中，可以看到目前excel的样式字体是等线，再点击上方的“格式”

将字体修改为“仿宋”就OK了！
这个时候你再打印预览或者打印成PDF文件，单元格的行高就不会出问题了。
这是假如你的表格中的字体是“仿宋”的例子，如果你表格中的字体是“宋体”，如果在打印的时候遇到行高不对的情况，将excel样式中的字体改成“宋体”就行，按照上面我写的操作步骤即可，非常简单！
本来不想写这些，但今天遇到这个问题了，在度娘上一搜，一大堆解决方法都是瞎说，误导他人，实在忍不住了！

看了上面的朋友提供的办法，都不太稳定的，软件硬伤
我自己试出来一个办法：1.正常设置“最适合行高”
2.预览（你会看到存在压字）
3.退出预览
4.将列宽手动拉大一些
5.现在预览就能看到不压字了
（个人认为是因为最后手动调整时不会影响原设定的自动行高）
大家有用的话说一声，我也好知道适用性如何

先用"视图---页面布局“，然后”开始---格式--自动调整行高“，很多表格基本上没有问题了，如仍有显示不全，运行以下VBA代码（可放到工具栏中），自动行高加5或减5（每一行在原来自己行高基础上加高5，而不是把所有行调成一行高，这样不好的），可以说完美！我拿过无数文件做过试验，100%成功！
以下两段代码速度很快的，调整1000行不到1秒钟。
Sub 所有行自动加高5()
On Error Resume Next
Dim i As Integer
i = 0
Application.ScreenUpdating = False
ActiveSheet.DisplayAutomaticPageBreaks = False
tt = Timer
For Each c In Selection.Rows
Rows(c.Row).RowHeight = Rows(c.Row).RowHeight + 5
i = i + 1
Application.StatusBar = "已经完成：" & i & " 共耗时：" & Timer - tt & "秒"
Next
Application.ScreenUpdating = True
ActiveSheet.DisplayAutomaticPageBreaks = True
End Sub
Sub 所有行自动减少5()
On Error Resume Next
Dim i As Integer
i = 0
Application.ScreenUpdating = False
ActiveSheet.DisplayAutomaticPageBreaks = False
tt = Timer
For Each c In Selection.Rows
Rows(c.Row).RowHeight = Rows(c.Row).RowHeight - 5
i = i + 1
Application.StatusBar = "已经完成：" & i & " 共耗时：" & Timer - tt & "秒"
Next
Application.ScreenUpdating = True
ActiveSheet.DisplayAutomaticPageBreaks = True
End Sub

Excel里面一行的最大高度值是409.5，再拉也是拉不大的，如果文字多，想显示所有文字，只能将2行、3行或更多单元格行合并，这样高度就能拉到N×409.5了。
我在网上找到了能自动行高合并单元格的代码，但发现，如果合并单元格里面的所有文字占用的总高度超过Excel最大单行行高409.5，还是会出现问题，超出一点点，有时候勉强还可以，但超出越多，问题越大，基本上无法通过代码实现最适合行高的功能，目前还没有找到针对性代码。没有一个完美的。
建议内容太多，缩小字体或拉宽单元格，将合并单元格所有文字总高度限制在409.5以内，一般问题不大。实在没办法只能手动了，毕竟字数太多了。

我现在已经用代码实现自动行高（包括合并单元格与非合并单元格），除了设置切换到到页面布局下面进行自动行高，还必须用11楼的方法将单元格样式设置为宋体（不影响表格中的已经使用的字体）。
With ActiveWorkbook.Styles("Normal")
.IncludeFont = True
End With
With ActiveWorkbook.Styles("Normal").Font
.Name = "宋体"
End With
ActiveWindow.View = xlPageLayoutView '在页面布局下面准确率高
有了上面代码在前，后做自动行高才能避免缺字的情况。