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

執筆者:

関連記事

Shopifyダウン中

いまShopifyのサービスがダウンしている。全世界的に障害が起こっているみたい。Twitterで検索すると、いろんな国の人がいろんな言語で嘆いている。自社のECサイトも止まっているので、注文も入らな …

no image

VBA-JSONはダメだったがPowerQueryはよかった

オンラインショップの在庫管理目的で、業務システムを動かしているAccessかExcelで、何とかしてWebの商品マスターAPIのデータを取ってきたい。 最初、VBA-JSONというのを使えばいいのかな …

no image

同じセルに数字があるファイルを開いて別のファイルにどんどん転記しては閉じていく×1000件・・・をExcelマクロで作る

昨日は、アンケートの下仕事をやった。 各ファイルの同じセルに数字の記入があって、それを開いて別のファイルにどんどん転記しては閉じていく・・・というのをExcelマクロで作るのだが。 最初は手作業でコピ …

no image

全角カタカナ

Accessの業務アプリの作成中、おなじみの、微妙なトラブル発生。 IMEを何度「ひらがな」設定しても、「全角カタカナ」になる。 IMEの設定を「ひらがな」に戻した直後は戻るのだが、別の画面(テーブル …

no image

・・・

山を登り終えたら、海に潜って、空を飛べ・・・みたいな仕事(もちろん比喩)が連日続いていて、クタクタ。 この他に、メール読んだり書いたり、スケジュール確認やら優先順位の組み直しやら、社内の指示やら伝達や …