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

執筆者:

関連記事

Googleドキュメントの共有したスプレッドシートが表示できない

困った現象: ・ウェブに一般公開設定したスプレッドシートが、ログアウトした状態で、共有できない。 ・共有設定をしているにもかかわらず、共有リンクを開こうしようとするとログイン画面に転送される。 ・スプ …

no image

速いパソコン? いらん

「だっておわっちゃ、速過ぎるとついていけんもんに」 PCセミナー受講生の名言。

no image

USBハブ

最近PC(ブラウズ)が遅いなと思っていたが、USBハブを外したとたんに速くなる事を偶然に発見。 なぜ? まあいいや。さてUSBハブは、オークションに。

no image

LimeSurvey2.0メモ

・トークンデータのCSVインポート1万件にかかった時間は2分。トークン生成も同じくらいの時間がかかる。 ・インポート時に「日本語 SJIS」指定しないと、姓名が表示されなかった。 ・JSの実行がFFだ …

no image

ExcelVBA苦しみの続き

「コメント」の取得や消したり書いたり見えなくしたはどうすればで苦しむ。 ピボットテーブルのレコードソースを他のブックに対しクエリを発行したモノにしたいのだが、その方法も方々探すも分からず苦しむ。 ネッ …