【AccessVBA】フォームで現在のレコードを印刷する方法

access

タイトル通りですが、Accessフォームで
現在のレコードだけを印刷するボタンを配置するときに使うコードをメモしておきます。

AccessVBAのフォームで現在のレコードだけを印刷する方法

事前作業としてフォームだけではなく、「レポート」を作成しておく必要があります。レポートはわざわざ一から作る必要はありません、フォームから簡単にコピー変換できます

①フォームをレポート化しておく

フォームを表示している状態でF12等を押して名前を付けて保存 ⇒ 貼り付ける形式をフォームからレポートに変えて保存する。これだけです。

②ボタンに設定するVBAの印刷用コード

印刷(確認なしで、設定プリンターに即印刷)

DoCmd.OpenReport "レポート名", acViewNormal, , "[ID] = " & Me.[ID] & ""

印刷プレビュー

DoCmd.OpenReport "レポート名", acViewPreview, , "[ID] = " & Me.[ID] & ""

コメント