- PR -

ページ指定印刷について

«前のページへ 1|2
投稿者投稿内容
わちゃ
大ベテラン
会議室デビュー日: 2005/12/05
投稿数: 162
お住まい・勤務地: 東京
投稿日時: 2006-06-30 09:05
何ページ目だと、何レコード目かが、条件が複雑で計算しにくいのでしょうか？
それなら、素朴な感じでは、次のようなイメージになるかと思います。

Private Sub PrintDocument_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
　Do
　　PageCount += 1
　　もろもろ計算
　　If is印刷範囲() Then e.Graphics.描画関数()
　　ほかにも計算
　　If is印刷範囲() Then e.Graphics.描画関数()

　　If isデータ終了() Then e.HasMorePage = False
　Loop While( Not is印刷範囲 AndAlso Not e.HasMorePages )
End Sub


Private Function is印刷範囲() As Boolean
　If dlgPrinter.PrinterSettings.ToPage <= PageCount AndAlso dlgPrinter.PrinterSettings.FromPage >= PageCount
　　Return True
　Else
　　Return False
　End IF
End Function
«前のページへ 1|2

スキルアップ／キャリアアップ（JOB@IT）