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/2NextEnd Sub在excel 2007的文件中执行以下语句Sub hg()For I = 1 To Range("A1048576").End(xlUp).Row Rows(I).RowHeight = Rows(I).RowHeight + Rows(I).RowHeight/2NextEnd SubRows(I).RowHeight/2 是可调整项 表示现有的行高+再加上行高的一半做为行间距还搞不定的，邮件我 365345@qq.com