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

Accessで「イベントプロパティに指定した式MouseMoveでエラーが発生しました。フォームまたはレポート上のActiveX コントロールを読み込むときにエラーが発生しました。」

フォームに配置したプログレスバーコントロールの上をマウスポインタが横切ろうとすると、必ず上のエラーメッセージが表示される。 原因がわからず、対処もできず、困っていた。 Google先生も頼りにならず、 …

no image

joomla

仕事でjoomla(CMS)を使おうと画策中。 最初はとっつきにくいと思ったが、アレコレ触ってみるとすごくいい。 しかしWebの情報はMTやXOOPSに比較して少ない。 (日本語情報が、だけど) 作る …

no image

Excel2013のリボン&タブのカスタマイズで格闘。

今まで、BookのXMLにリボンメニューを仕込むのは難しいのだと思っていた。 実際、Excel2003でアドインメニューを作ったことがあるが、そのときは相当苦労した。 しかし無料のツールを使えば、かな …

no image

HDL-C1.0とLS-V1.0TL

会社で6ヶ月間だけ人をたくさん雇っているので、その期間だけ使えるNASが欲しかった。 近くのお店で物色したところ、一番安いのがアイオーデータのHDL-C1.0であった。 その時は、これでいいな、安くて …

no image

Photoshopの疑問色々解決備忘録

Photoshopでレイヤーを重ねたときに特定のレイヤーのオブジェクトだけをグラデーションかけたい・・・って時にどうやるか。 どうするんでしたっけ? 以前悩んでいろんな人に聞いて回ってしかし誰もわから …