vba打印，文档变形

第Ⅸ夜

Sub 申请书()
    Dim Word对象 As New Word.Application, 文件名, 路径文件名, i
    当前路径 = ThisWorkbook.Path
    文件名 = "申请书"
    路径文件名 = 当前路径 & "\" & 文件名 & ".doc"
    With Word对象
        .Documents.Open 路径文件名
        .Visible = False
        .PrintOut Copies:=1        '打印
        .Quit
    End With
    Set Word对象 = Nothing
End Sub





代码有删减。主要就是查找、替换、保存、打印。

可是，问题来了，正常情况下，打印出来的文件，应该是上图，可是实际打印的时候，经常出现下图的情况，文档内容变形，挤压成一坨……
保存的word文档是正常的，只是打印的时候出现问题。

第Ⅸ夜

实际打印过程中，不带图片的文档，从没有出现变形的情况