IT仕事 MS Access

フォームを直接Accessで印刷プレビューし、閉じるときのイベントで処理をしたい

投稿日:

困ったこと:

前提として、自分とこのシステムは、フォームを直接Accessで印刷プレビューして、そのまま印刷できるように作ってある。

しかし、リボンに印刷プレビューを閉じるボタンがある一方で、フォームの右に閉じるボタンが表示されているので、後者をユーザーが誤って押してしまうことがある。
すると印刷プレビューを終えるつもりがフォームを閉じることになってしまう。
再度、呼び出したいフォームを探して開くのは面倒・・・。

やりたかったこと:

リボンの印刷プレビューをクリックすると、フォームウィンドウを最大化してプレビューする(ここは簡単、DoCmd.Maximizeで)。
印刷プレビューを閉じると、フォームウィンドウのサイズが元に戻る(ここがわからん)。

難しかったこと:

印刷プレビューを閉じた際のイベントトリガーがAccessにあるのかないのかわからず、調べるのにずいぶん時間がかかった。

以下の達人のブログを拝見し、イベントを追跡する方法があることを発見し、フォームのプロパティの各所にイベントトラップを仕掛けて、調査した。感謝。
■T’sWare イベント徹底活用 1 ~フォームのオープン・クローズ~

できた:

フォームの「レコード移動時」イベントに記述した処理で、目的が達成できることを発見。
具体的には、以下のコードでOK。

Private Sub Form_Current()
'印刷プレビューから戻るときにフォームのサイズを変える
'■T'sWare イベント徹底活用 1 ~フォームのオープン・クローズ~
'http://tsware.jp/study/vol5/event_01.htm
    DoCmd.Restore
End Sub

-IT仕事, MS Access

執筆者:

関連記事

no image

総会にて

「私も理事に名を連ねる一人なのに、事前に相談も無く勝手に動かれては困る」だの、 「会長に謝罪して欲しい」だの。 この件で何十分話をしているのだ いいかげんにして欲しい。 聞いてる20人の皆さんも、うん …

ShopifyからChatworkへ通知(JSON)

Arigato Automtion(Shopify)から、PowerAutomateへの、JSONデータの渡し方について、需要あるかもと思い、書いてみる。 自分がやっていた以前のやり方(これだと日本語 …

no image

昨日の続きの嬉しさよ

何度も落とされながらも「再チャレンジ」(笑)した結果、なんとか今年の試験で引っかかり、悲願の合格証書を手にした。 う、うれしいー! 昨日はビールとポテチでお祝いした。 振り返ると、結構難しかったなー、 …

Googleドライブのフォルダに含まれるファイル数を確認する方法(要マクロ)

ほとんど、以下の参考サイトのマルパクリで恐縮なのだが。 グーグルドライブで、特定のフォルダ以下のフォルダとファイルの一覧を書き出すスクリプト 上記ページの「コード」のうち、91行目以降を以下に書き換え …

TeraStationからQnapへのデータ移行

使用開始から5年を過ぎた会社のNAS。TeraStation TS-WXL973。 使用済み容量が90%を超え、本年度中にはパンクすることが目に見えてきたので、NASを新調することにした。 ネットで評 …