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

spam対策

Yahooの外部メールがWebメールの画面で受信できなくなった。 Yahooアカウントのメールはできるのに。 Yahooに問い合わせたとこと、「外部メールのプロバイダに障害が起こっている可能性があるか …

Excelワークシート上にフォームコントロールを配置する際のコツ

コントロールとセルのリンクを作るのは、あとにする。 リンクを作ってしまうと、それをコピペしたときに連動してしまい、リンクを解こうとするとコピー元も解かれてしまい、とにかくすごく面倒なことになる。 別シ …

no image

Excelで使える祝日判定のWebAPIを見つけた

Excelの関数には、曜日を判定できる関数(WEEKDAY)が用意されている。また、表示だけなら書式設定でもできる。しかし祝日となると、関数も何も、用意されていない。 祝日は年により、突然増えたり、「 …

no image

VBAからIE操作

大変に感銘を受けたサイト。 三流君VBA:VBAからIE操作 TABLEの中にTABLE .getElementsByTagNameほかhttp://www.ken3.org/vba/backno/v …

no image

ペースターno日付計算

便利に使わせていただいているシェアウェアの「ペースター」ですが、 カスタムメニューを使って、3日前とか、一週間前の日付計算をしてから貼り付ける方法が、わからなかった。 さっきGoogleで調べたら、な …