Access2016:印刷時拡張で高さの拡がったテキストボックスに合わせて自動的に他のテキストボックスの高さも拡げたい

Question

以下のような請求書を作成しています。

この「内容」欄の「印刷時拡張」を「はい」にして、
一行で収まらない場合には自動的にテキストボックスの高さが拡がるように設定しています。

この時、他の「No/数量/単価/金額/備考」についても、
自動的に「内容」の高さに揃えて変更されるようにしたいのですが、そのような設定は可能でしょうか。

可能であれば設定手順について教えていただけますでしょうか。

よろしくお願いいたします。

<修正後>

Answer 1

罫線はテキストボックスの境界線で表示しているのだと思いますが、それでは無理なので、まず、境界線スタイルを「透明」にします。

直線コントロールを詳細セクションの最下部に配置して横罫線とします。

縦罫線は、印刷時拡張に合わせて自動で拡張するのは難しいので、「印刷時」のイベントプロシージャでVBAで描画します。

下記は、左端から、
0.8cm, 8cm, 10cm, 13cm, 16cm, 20cm の位置に縦罫線を引く場合のコード例です。

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
    Const twip = 567 '1cm = 567twips
    Const MaxHeight = 5670 'セクションの最大高さを10cmと想定
    
    Me.Line (twip * 0, twip * 0)-(twip * 0, MaxHeight) '左端の縦線を引きます。
    Me.Line (twip * 0.8, twip * 0)-(twip * 0.8, MaxHeight)
    Me.Line (twip * 8, twip * 0)-(twip * 8, MaxHeight)
    Me.Line (twip * 10, twip * 0)-(twip * 10, MaxHeight)
    Me.Line (twip * 13, twip * 0)-(twip * 13, MaxHeight)
    Me.Line (twip * 16, twip * 0)-(twip * 16, MaxHeight)
    Me.Line (twip * 20, twip * 0)-(twip * 20, MaxHeight)

End Sub

Comments

[th_bridge]

いつも早く丁寧なご回答ありがとうございます。
あげていただいたコード例に従って試してみます。

ありがとうございます！

[th_bridge]

アドバイスいただいた内容で希望通りの結果にすることができました。
今回もありがとうございました。