VBA 印刷前に値を更新したい

Question

前提・実現したいこと

エクセルVBAで、ボタンを押したら、班名を変えながら一括で印刷するマクロを組んでおります。
おおよそ出来たのですが、一部思ったようにいかないことがあります。
添付画像を見ていただきたいのですが、R６のセルに班名が記載してあります。
１班〜２班まであるのですが、その班名を選択すると、M10のセルの数字が変わります。
それを「図のリンク貼り付け」でG１０あたりに貼り付けている状況です。
ここで、１班→３００　、　２班→３６６　という数字が正しいとします。
印刷マクロを登録したボタンを、R6のセルが２班になっている状態で押すと、１班：３６６、２班：３６６という誤った状態で印刷されます。
最初に印刷する１班の数字が、更新されずに先に印刷されてしまいます。

やっかいなのは、時々うまくいくことがあるという点です。うまくいくときと、行かないときの違いはわかりません。

色々試している内に、コードも汚くなってしまっています。何かスマートな解決方法がありましたら、どなたかご教授していただけないでしょうか。

エクセル2016利用です

該当のソースコード

Sub Print_out()

With Application
' .ScreenUpdating = False　ここはコメントアウトしてみました
.EnableEvents = False
End With

With ActiveSheet
.Range("R6").Value = "1班"
End With

Application.Wait Now() + TimeValue("0:00:03")

With ActiveSheet
.Range("R6").Value = "1班"
.Range("R6").Select
.PrintOut
.Range("R6").Value = "2班"
.PrintOut
End With

With Application
' .ScreenUpdating = True ここはコメントアウトしてみました
.EnableEvents = True
End With

End Sub

試したこと

リンク貼り付けの値が更新される前に印刷されているのかと思い、Waitを使って時間差を作ってみたのですが、それでもうまくいきません。
ScreenUpdatingやEnableEventsもいじったりしてみたのですが、だめでした。

Comments

[kitasue]

「印刷マクロを登録したボタンを、R6のセルが２班になっている状態で押すと、１班：３６６、２班：３６６という誤った状態で印刷されます。」
とのことですが、逆に、R6のセルが１班、図の数字が３００の状態で開始すると、どう印刷されますか？

[Akira_papa]

ご覧頂きありがとうございます。
先に1班の状態で印刷すると、300という正しい数字で印刷されます。2班も366という数字に更新され印刷されます。
なので、現状は手動で1班に直してから印刷する方法で対応しているのですが、この手動の操作を挟まずに印刷する方法に悩んでおりました。

Answer 1

手動計算になっていないでしょうか。
自動計算にしておいてはいかがでしょう。

Application.Calculation = xlCalculationAutomatic	’自動計算
'Application.Calculation = xlCalculationManual     '手動はこちら

そのタイミングだけ再計算させたいなら

Application.Calculate

Comments

[Akira_papa]

回答ありがとうございます！
計算は自動計算になっています。1班2班と印刷して行った時に、最初だけ計算されない感じです。
また、質問時に記載を漏らしましたが、Application.Calculateも試しました。が、やはりこちらを使っても、計算前に印刷されるのは変わりませんでした。

[radames1000]

リンク貼り付けではなく、図形を置いておきそこで=$M$10にしてみてはいかがでしょうか。

[Akira_papa]

度々ありがとうございます。
せっかく教えていただいたのに恐縮ですが、本日は試せない状況になってしまったので、明日またやってみます。申し訳ないです、ありがとうございます！

[Akira_papa]

この度は教えていただいてありがとうございました。
原因はわからないままですが、解決することが出来ました。
お時間頂いたことに感謝します！

Answer 2

私の手元でも再現しました。うまく行く場合と行かない場合がありますね。。。
回避方法として、［挿入］タブの［図形］から［角丸四角形］を選択して（形はお好みですがｗ）
シート上に描画し、その図形を右クリックして［マクロの登録］でプロシジャを登録し、
その図形をクリックして印刷したところ、今のところ全戦全勝ですｗ

Comments

[Akira_papa]

貴重なお時間に対応いただいてありがとうございます！
ちょっと今日は試せない状況になってしまったので、明日ご指摘の方法で試してみます。
マクロをどこに登録するかで、結果が変わってしまうのはなぜなのでしょうか？バグみたいなものなんでしょうかね。謎ですｗ

[kitasue]

分からないですね～ｗ
図形をクリックしたら図形がrefreshされるんですかね～ｗ

[Akira_papa]

遅くなってしまいまして申し訳ないです。
ご指摘のように、図形を挿入して実行すると、たしかに全てうまくいっています。
原因がわからず、少しモヤモヤは残りますが、解決できましたのでベストアンサーとさせていただきます。
ご丁寧にお手元で再現までしていただいてありがとうございました！