Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2 / 2244 ツリー ←次へ | 前へ→

【13137】A4縦のレポートに折り目をつけたい オスマン 17/4/5(水) 11:34 質問[未読]
【13138】Re:A4縦のレポートに折り目をつけたい hatena 17/4/7(金) 13:11 回答[未読]
【13139】Re:A4縦のレポートに折り目をつけたい オスマン 17/4/10(月) 17:02 お礼[未読]

【13137】A4縦のレポートに折り目をつけたい
質問  オスマン  - 17/4/5(水) 11:34 -

引用なし
パスワード
   お世話になります。

Access2003のレポートで
A4の縦サイズの帳票があり3つ折りの折り目を表示したいと思います。
具体的には長さ数ミリの直線を高さ99mmと198mmのところに表示したい。

レポートの仕様はグループヘッダと詳細があり
グループごとに表示してます。

どのように行えばよいでしょうか?
よろしくお願いします。

【13138】Re:A4縦のレポートに折り目をつけたい
回答  hatena  - 17/4/7(金) 13:11 -

引用なし
パスワード
   >Access2003のレポートで
>A4の縦サイズの帳票があり3つ折りの折り目を表示したいと思います。
>具体的には長さ数ミリの直線を高さ99mmと198mmのところに表示したい。

レポートのページフォーマット時のイベントで
Lineメソッドで直線を描画すればいいでしょう。


Private Sub Report_Page()
  Dim lTop As Long
  Dim lWidth As Long
  
  lTop = CLng(99 - 15) * 56.7 '上余白15mmの場合
  lWidth = 210 * 56.7
  Me.Line (0, lTop)-(lWidth, lTop)
  
  lTop = lTop + 99 * 56.7
  Me.Line (0, lTop)-(lWidth, lTop)

End Sub

【13139】Re:A4縦のレポートに折り目をつけたい
お礼  オスマン  - 17/4/10(月) 17:02 -

引用なし
パスワード
   ありがとうございます。

解決することができました。

2 / 2244 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
969511
(SS)C-BOARD v3.8 is Free