预览分页时获取各页打印区域的技术实现咨询

我平时要处理大量没有预先指定打印设置的Excel文件，最近遇到个实际问题想请教大家：比如工作表的A1单元格里有数字1和一个形状，而且没有设置打印区域，这时候我想获取打印预览分页后，每一页对应的实际打印区域范围，希望能得到靠谱的解决思路或者代码方案。

（图片说明：展示了Excel界面，A1单元格包含数字1和一个形状，界面呈现出打印预览的分页状态）

我自己先写了一段VBA代码片段，贴出来供大家参考，看看有没有可以补充或优化的地方：

If Sht Is Nothing Then
    Set ws = ActiveSheet
Else
    Set ws = Sht
End If
With ws
    blnLand = CBool(.PageSetup.Order = xlOverThenDown)
    
    strTemp = .PageSetup.PrintArea
    If Len(strTemp) = 0 Then
        Set rngUsed = .Range(.Cells(1), .UsedRange)
'            Debug.Print rngUsed.Address
    Else
        Set rngUsed = .Range(strTemp)
    End If
End With

With rngUsed '마지막 셀
    Set rngLast = .Cells(.Rows.Count, .Columns.Count)
End With
Application.Calculation = xlCalculation...

这类无指定打印的需求在我的工作里很频繁，要是能解决这个问题能帮我省不少时间，麻烦各位大神指点一下！

备注：内容来源于stack exchange，提问作者강호의 iDEVICE 3