Vba 重新调整行高以便动态打印

我正在尝试重新调整行高的大小，以修复使用“自动重新调整大小”时出现的打印间隙。例如：

在excel中：

打印预览：

为了解决这个问题，我做了很多尝试，但都没有成功。手动修复此问题的示例如下：

在excel中：

打印预览：

我无法手动修复此问题，因为此程序用于创建包含多个单元格的多个工作簿，当此问题发生时，这些单元格必须全部更改。任何跨越3行以上的单元格都会出现这种情况，但单间距字体和常规字体都会出现这种情况。我曾尝试在vba中使用字符比率来自动调整高度，但没有成功，还有一些其他想法没有成功

---

在这一点上，我被难住了。如果您想重新创建我的场景，请使用54pt列宽、8号calibri字体、换行、自动调整行高和任何足够长的填充文字。

录制一个宏，手动修复？@findwindow我不能这样做，我有数百个单元格需要更改为不同的大小。宏显示的所有内容都是将大小从当前状态更改为不适合每个单元格的新数字。如何手动修复它？只需拉伸单元格，直到它在打印预览中看起来正确？打印时是否进行缩放，还是100%？@gtwebb是的，我只是缩小单元格，然后转到打印预览，然后再返回，直到它看起来正确为止。似乎我需要在excel视图中隐藏一些文本。记录下你手动修复的宏？@findwindow我不能这么做，我有数百个单元格需要更改为不同的大小。宏显示的所有内容都是将大小从当前状态更改为不适合每个单元格的新数字。如何手动修复它？只需拉伸单元格，直到它在打印预览中看起来正确？打印时是否进行缩放，还是100%？@gtwebb是的，我只是缩小单元格，然后转到打印预览，然后再返回，直到它看起来正确为止。似乎我需要在excel视图中隐藏一些文本。