タイトル通りですが、Accessフォームで
現在のレコードだけを印刷するボタンを配置するときに使うコードをメモしておきます。
AccessVBAのフォームで現在のレコードだけを印刷する方法
事前作業としてフォームだけではなく、「レポート」を作成しておく必要があります。レポートはわざわざ一から作る必要はありません、フォームから簡単にコピー変換できます
①フォームをレポート化しておく
フォームを表示している状態でＦ１２等を押して名前を付けて保存 ⇒ 貼り付ける形式をフォームからレポートに変えて保存する。これだけです。
②ボタンに設定するＶＢＡの印刷用コード
印刷（確認なしで、設定プリンターに即印刷）
DoCmd.OpenReport "レポート名", acViewNormal, , "[ID] = " & Me.[ID] & ""
印刷プレビュー
DoCmd.OpenReport "レポート名", acViewPreview, , "[ID] = " & Me.[ID] & ""
コメント