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

PHPエディタ

PHPエディタ、なかなか使い勝手がいい。 書いたコードを、PHPの予約語や文字属性を区別して、色分けしてくれたり。 カーソル付近にある括弧を、対応するもの同士、太字にしてくれたり。 意外だったのは、C …

no image

Titanimu Studioを試している。

書籍を揃えて試しているのだが、以下の部分でエラーになる。 win1.hideTabBar(); エラーメッセージは、 <TiBaseWindow> has no method &#8216 …

Power Automate Desktopでダイアログでのファイル選択完了判定

今回Power Automate Desktopで、やりたかったこと: (人間が作業)Webブラウザからファイルのアップロードするダイアログボックスで、ファイルを選択してOKボタンを押すところまで。( …

no image

IME2007だめだめ

Office2007にしてから日本語入力の変換が重くて重くて仕方がない。 もしやと思うと、やっぱり。 IMEがバージョンアップして「2007」になっていた。 IME2007だめだめ。 ネット検索すると …

no image

珍しく、講習会

昨日は珍しく、講習会なんぞに行ってきた。 内容は、SEO。 Webサイトをちゃんとする方法について、講師は丁寧に解説してくれた。 ま、要するに、右脳も左脳も前頭葉も後頭葉も全力でこき使ってください、う …