スキルアップ・問題解決なら、モーグにおまかせ！

こんにちは。よろしくお願いいたします。
 
ws1：データ蓄積シート
ws2：印刷用フォーマット
 
ws1にある数件のデータを
ws2のフォーマットに1件ずつ埋め込んで印刷する作業を自動化しようとしています。
 
ws2にデータを埋め込んで、印刷プレビュー　⇒
「印刷プレビューを閉じる」ボタンを押下　⇒
印刷するかしないかを確認　⇒　印刷
 
まではできました。
 
しかし、印刷プレビューのウィンドウ上にある「印刷」ボタンを押すと印刷ダイアログが立ち上があり
印刷ができてしまいます（このダイアログは表示したくない）。
そこで「印刷」ボタンを使用不可にするか、「印刷」ボタンが押されたことを判定できればと思うのですが
どのような方法があるのでしょうか？
 
ご存じの方がおられましたら、アドバイスいただけないでしょうか？
 
 
コード一部抜粋
 
ws2.PrintPreview EnableChanges:=False
        
res = MsgBox("プレビューされたデータを印刷しますか？" & vbLf, vbYesNo)
                     
If res <> 6 Then
　　Exit Sub
Else
   ws2.PrintOut Copies:=1, Collate:=True
End If

既定のダイアログの中の特定の部品だけ使用不可にすることは、
できないのではないかと思います。
（Office.IAccessibleを利用するWinAPIを駆使すればできるのかもしれません。
  どなたかから回答があればよいですが、期待薄かもしれません。
  また、副作用やメインテナンスの側面も考え合わせると、
  できないと整理しておいた方が無難だと思います。）
 
なお、ThisWorkbookモジュールにWorkbook_BeforePrintというイベントプロシージャーがあります。
印刷命令をトリガーにして、印刷の直前に何かをさせたいときに使います。
また、Cancel変数をTrueにすれば、印刷そのものを取り消しできます。
 
しかし、残念ながら、
    ・Sheet1.PrintPreview
    ・Sheet1.PrintOut Copies:=1, Collate:=True, preview:=True
は、両方ともこのイベントに該当してしまうので、
PrintPreviewだけ活かして、印刷だけ抑止するということはできません。
 
■そもそもですが、それは
(1)ご自分を含め操作者の間違いの防止ということですか？
それとも
(2)情報の流出回避、情報保護の観点からですか？
もし、(2)の観点であれば、コピーペイストの抑止を含めたより広い観点からの対策が必要でしょう。
 
(1)であれば、それは注意力に期待するしかないと思います。
または、予め印刷必要なものだけに限定して印刷プレビューするような処理に変更するかでしょう。

そもそもの話ですが、
 
「印刷プレビュー」機能は、
印刷イメージを確認して、印刷するか／しない（しても問題ないか）を
判断して、それに対応するボタンをクリックすることになります。
 
印刷して問題がないことを判断して、「印刷する」を選択したのですから、
再度印刷する／しない
を確認する操作は、いささか、オーバースペックという感じがします。
 
それだったら、「印刷プレビュー」を使わずに
別な手段をっ検討しましょう。
 
例えば、ＰＤＦ化する方法もあります。

simpleさま
コメントありがとうございます。
 

simple さんの引用:

■そもそもですが、それは
(1)ご自分を含め操作者の間違いの防止ということですか？
それとも
(2)情報の流出回避、情報保護の観点からですか？
もし、(2)の観点であれば、コピーペイストの抑止を含めたより広い観点からの対策が必要でしょう。
 
(1)であれば、それは注意力に期待するしかないと思います。
または、予め印刷必要なものだけに限定して印刷プレビューするような処理に変更するかでしょう。

WinArrowさま
コメントありがとうございます。
 

WinArrow さんの引用:

操作する人が、不慣れということではなく、
印刷してよいかを買う人するための「印刷プレビュー」ですから、
それを再度確認させる・・・ということが余計なことと思います。
 
紙の無駄遣いをしないためでしたら、
印刷プレビューの代用おして、ＰＤＦ化で対応する方法があります。
ＰＤＦ化：印刷イメージを画面委表示して、印刷してもよいと判断して印刷することが出来まし。

引用:

以下のような目的がありました。
・印刷ダイアログを出して余計なことをされるのを防止したい
・単価の高い紙に印刷するため、本当に印刷しても良いのか再確認

付録のレス
  
「印刷プレビュー」で、操作者が実施した操作を取得することができます。
  
例
Dim Ret
    Ret = ws.PintPreview
    If Ret Then
      '印刷ダイアログで「OK」を選択（印刷した）
    Else
        '「印刷プレビュー―を閉じる」を選択
　　　　　または、印刷ダイアロウで「キャンセル」を選択（印刷しなかった）
     End If

WinArrowさま
ありがとうございます。
 
まさにこれが知りたかったのです！
今回はPDFで印刷レイアウト確認で進めようと思いますが
知りたかったことが知れて感激です。
 

WinArrow さんの引用:
付録のレス
  
「印刷プレビュー」で、操作者が実施した操作を取得することができます。
  
例
Dim Ret
    Ret = ws.PintPreview
    If Ret Then
      '印刷ダイアログで「OK」を選択（印刷した）
    Else
        '「印刷プレビュー―を閉じる」を選択
　　　　　または、印刷ダイアロウで「キャンセル」を選択（印刷しなかった）
     End If