允许打印纸张而不是整个工作簿

Question

我有一张超过20张的工作簿，每张工作簿包含许多文本框dans其他对象。由于我的工作表在布局中调整了不同于100％的百分比，因此在打印整个工作簿时对象会移动。但是，当单独打印每张纸时，没有任何动作。到目前为止我的代码阻止了打印任何东西，但我想允许打印单张纸：

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  MsgBox "Veuillez imprimer chaque feuille individuellement." & vbLf & "Please print each sheet individually."
  Cancel = True
End Sub

我需要插入验证正在打印内容的代码（工作簿或工作表）。这可能吗？

谢谢。