dynamic打印重新调整行高

我正在尝试重新设置行高，以便修复使用自动重新尺寸时出现的打印间隙。例：

在excel中：

在打印预览中：

打印预览

我尝试了很多事情来解决这个问题，但没有运气。手动修复问题的示例：

在excel中：

在这里输入图像说明

在打印预览中：

在这里输入图像说明

我不能手动修复这个问题，因为这个程序是用于创build多个工作簿，当这个问题发生时，所有的工作簿都将被改变。它似乎发生与任何单元格跨越3行以上，这个问题仍然发生在单间隔和常规字体。我已经尝试使用字符比例来自动适应vba的高度，但是这并没有奏效，还有一些其他的想法不足。

在这一点上im受难。如果您想重新创build我的场景，请使用54pt列宽，8号calibri字体，单词换行，自动填充行高以及足够长的填充文本。