access技メモ（２００３－２００７）詳細

特定のページを部数指定で印刷する。


'PrintOut(PrintRange, PageFrom, PageTo, PrintQuality, Copies, CollateCopies)

'

'PrintRange 部数を指定する場合は、acPages

'PageFrom:開始ページ

'PageTo：終了ページ

'

'PrintQuality：指定しません

'Copies：部数

'CollateCopies：指定しません。





'必ず、プレビューモードでレポートを開いた後指定してします。

'通常使うプリンターが使用可能である必要があります。

'1ページ目から4ページ目を　2部出力



    Dim stDocName As String



    stDocName = "qw100_tech_TITLE"

    DoCmd.OpenReport stDocName, acPreview

    DoCmd.PrintOut acPages, 1, 4, , 2





'全ページ3部出力

    Dim stDocName As String



    stDocName = "qw100_tech_TITLE"

    DoCmd.OpenReport stDocName, acPreview

    DoCmd.PrintOut acPages, , , , 3

開発チームの覚書

特定のページを部数指定で印刷する。