Access VBA質問箱 IV

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

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


39 / 9985 ←次へ | 前へ→

【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

55 hits

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

39 / 9985 ←次へ | 前へ→
ページ:  ┃  記事番号:
975301
(SS)C-BOARD v3.8 is Free