EXCEL自动换行自动行高，仍打印不全 VBA搞定

EXCEL自动换行自动行高，仍打印不全 VBA搞定

EXCEL设置了自动行高，换行，但打印预览显不全

Excel已经设置了单元格自动换行、自动行高，并且不存在合并单元格，但是在打印预览的时候还是会出现打印不全的问题。

http://jingyan.baidu.com/article/c910274bc7940acd361d2d8f.html17:34:36%E8%94%A1%E7%81%BF%E8%BE%89%202016/6/20%2017:34:36

以上解决方案，在win10中并不能真正解决问题，这个问题一直困拢我，今天终于下定决心，一定要想办法彻底解决，解决方案如下：

在打印前，先把所有表格调整为自动适就行高，然后在开发工具查看代码中执行以下 VBA代码!

在Excel 2003的文件中执行以下语句

Sub hg()

For I = 1 To Range("A1048576").End(xlUp).Row

Rows(I).RowHeight = Rows(I).RowHeight + Rows(I).RowHeight/2

Next

End Sub

在excel 2007的文件中执行以下语句

Sub hg()

For I = 1 To Range("A1048576").End(xlUp).Row

Rows(I).RowHeight = Rows(I).RowHeight + Rows(I).RowHeight/2

Next

End Sub

Rows(I).RowHeight/2 是可调整项 表示现有的行高+再加上行高的一半做为行间距

还搞不定的，邮件我 365345@qq.com