アクセス解析
レンタル掲示板

カレンダー
   1234
567891011
12131415161718
19202122232425
262728293031 
<< August 2018 >>
プロフィール
お気軽にコメントして下さい。相互リンクも歓迎します!
にほんブログ村 地域生活ブログ 山口情報へ

PVアクセスランキング にほんブログ村
カテゴリー
アーカイブ
おすすめ商品
おすすめ商品
おすすめ商品
おすすめリンク

その他リンク

<< 発注 | main | 設定 >>
改ページコントロール

指定行数だけ印刷したら改ページしたいとき「改ページコントロール」を使います

例えば、以下のような使い方です

 

<詳細フォーマット>

    Select Case IntCount
        Case Is >= 31  ’30行まで
            Me.改ページ.Visible = True ' --- 改ページする
        Case Else
            Me.改ページ.Visible = False ' --- 改ページしない
    End Select

    IntCount = IntCount + 1 ' --- 行数のカウント

 

この時、行数のカウントの初期化はページヘッダーと改ページ設定をしているフッターに入れなければいけません

 

Private Sub ページヘッダーセクション_Print(Cancel As Integer, PrintCount As Integer)
    IntCount = 1
End Sub
 

Private Sub グループフッター_Format(Cancel As Integer, FormatCount As Integer)
    IntCount = 1

End Sub

| ACCESSシステム開発 | 22:01 | comments(0) | - |
コメント
コメントする