IT仕事 MS Access

フォームを直接Accessで印刷プレビューし、閉じるときのイベントで処理をしたい

投稿日:

困ったこと:

前提として、自分とこのシステムは、フォームを直接Accessで印刷プレビューして、そのまま印刷できるように作ってある。

しかし、リボンに印刷プレビューを閉じるボタンがある一方で、フォームの右に閉じるボタンが表示されているので、後者をユーザーが誤って押してしまうことがある。
すると印刷プレビューを終えるつもりがフォームを閉じることになってしまう。
再度、呼び出したいフォームを探して開くのは面倒・・・。

やりたかったこと:

リボンの印刷プレビューをクリックすると、フォームウィンドウを最大化してプレビューする(ここは簡単、DoCmd.Maximizeで)。
印刷プレビューを閉じると、フォームウィンドウのサイズが元に戻る(ここがわからん)。

難しかったこと:

印刷プレビューを閉じた際のイベントトリガーがAccessにあるのかないのかわからず、調べるのにずいぶん時間がかかった。

以下の達人のブログを拝見し、イベントを追跡する方法があることを発見し、フォームのプロパティの各所にイベントトラップを仕掛けて、調査した。感謝。
■T’sWare イベント徹底活用 1 ~フォームのオープン・クローズ~

できた:

フォームの「レコード移動時」イベントに記述した処理で、目的が達成できることを発見。
具体的には、以下のコードでOK。

[code]
Private Sub Form_Current()
‘印刷プレビューから戻るときにフォームのサイズを変える
‘■T’sWare イベント徹底活用 1 ~フォームのオープン・クローズ~
‘http://tsware.jp/study/vol5/event_01.htm
DoCmd.Restore
End Sub
[/code]

-IT仕事, MS Access

執筆者:

関連記事

no image

CSSで、はまった(画像の重なり・relative/absolute)

トラブル:トップページに配置した「ネットでの購入はこちら」ボタンが、ウィンドウの大きさに合わせて移動してしまう。 横長が狭い画面だと右の位置にあるが、広い画面だと真ん中に来る。CSSを見ると、posi …

PhotoshopElementsで写真の角を丸くする

方法を見つけるのに2時間ほどかかってしまったので備忘録・・・。 1.写真をCtrl+Aで全選択。 2.選択範囲-選択範囲を変更-境界線-10px。境界線が選択される 3.選択範囲-選択範囲を変更-滑ら …

no image

久々にExcelVBAの仕事が来て戸惑う。

フォームのアクティブ時にトグルボタンに値をセットしたらなぜかClickイベントが動いてしまい、そのイベントをキャンセルする方法をググルもわからず(AccessではできるがExcelではできない?)、結 …

no image

Shopifyで注文に付けたタグが消える(日本語の場合)

手入力でタグ付けしても、アプリでタグ付けしても、日本語はダメ。気持ち悪いのは、一度、日本語のタグ付けをして、正しく保存されたように見えても、次に画面遷移したらそれが消えていたり、時間がたったら消えてい …

no image

AccessのデータをGoogleスプレッドシートに表示する

会社のネットショップで、お客様から電話で荷物の出荷状況について問い合わせがあった場合に、現状ではすぐに対応できていなかった。 荷物の伝票番号は、クロネコヤマトのB2のソフトか、あるいはAccessの業 …