レポートで２部印刷する

レポート機能のサンプルとして提供されている「GasReport」プロジェクトでは、文書を印刷するプログラムとして以下のように記述されています。

通常１部だけを印刷する場合

    
    g = OpenPrinterDialog(ps, nil)

    If g <> Nil Then
         If rpt.Run( ds, ps ) Then

            // １部印刷する
            rpt.Document.Print(g)

         End If
     End If
   

納品書の印刷などで、同じ内容のレポートを２部印刷する場合には、このような方法で印刷することができます。

２部印刷する場合

    
    g = OpenPrinterDialog(ps, nil)
    If g <> Nil Then
        If rpt.Run( ds, ps ) Then

            // １部印刷する
            rpt.Document.Print(g)

            // とりあえずここまでで、改行する
            g.NextPage( )

            // もう一度印刷する
           rpt.Document.Print(g)
 
        End If
    End If