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

1、在打印前，先把所有表格调整为自动适就行高，然后在 开发工具  查看代码 中执行以下 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