Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
66 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   ありがとうございます。

解決することができました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
66 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078186
(SS)C-BOARD v3.8 is Free