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

最近使ったロイヤリティフリー写真素材サイト

普通。Mで1620円位? http://pixta.jp/   安め。Mで1000円以下 http://jp.fotolia.com/   古め・安め http://www.dex …

no image

ExcelVBAで名前から行列指定で取り出すには

名前を定義したセル範囲の、列や行での相対位置でみた、何番セルの値を取り出したい場合に、どのように書ければよいかわからなかったけども、やっとわかった。 Range(“範囲1”). …

no image

紙2001 長い間お世話になりました。

身辺整理をしております。 (といっても、辞表を出したとかそういうのではなく、単に、新年度に入ったので、スッキリしたく) まずは、IT環境からということで、いらないデータを削除したり、移動したり。 ソフ …

no image

web2.0

遅ればせながら、WEB2.0関係の本を読んでいる。 ITは世の中を変えてるね。 バーチャル世界を変え、やがてリアル世界を変え。 これから世の中、将来はどう変わっていくんだろう。 次々起こる解決し難い問 …

no image

Accessで指定テーブル内を全文検索

今まで、特定のフィールド内でしか検索できないものだと思っていた・・・。 Accessのリボンの検索ボタンをクリックして表示されるダイアログボックス内の「探す場所」で特定のテーブル/クエリ/フォーム名か …