VB.NETからの印刷出力

VB.NET + Create!Formでの帳票印刷方法

まず、Create!Formを使って帳票を印刷する手順を説明します。

1. 帳票開発環境で、帳票定義（デザインやデータとの関連付け）を作成する。
2. VB.NETアプリケーションより、帳票出力用データファイルを作成する。
3. VB.NETアプリケーションから、1の帳票定義や2の帳票出力用データファイルをもとに、Create!Form PrintStage(帳票印刷ランタイム)を呼びだし、帳票を印刷出力する。

3の、Create!Form PrintStageを呼び出すVB.NETサンプルコードを以下に記載します。

VB.NETサンプルコード

VB.NETからの呼び出しが簡単に行える.NetAPIを使用して帳票を印刷します。

実行パラメーターに、作業ディレクトリ、スタイルファイル、出力先プリンター名、入力データファイル名を設定し、Create!Form PrintStageを呼び出します。

Imports Infotec.CreateForm.Runtime
Imports Infotec.CreateForm.Runtime.Print

Module Module1

    Sub Main()
        Dim printstage As PrintStageRuntime
        Dim param As RuntimeParam
        Dim inputStd As InputDataParamStandard
        Dim inputData() As InputDataParam
        Dim paramEx As WinExpansionParam
        Dim expansions() As ExpansionParam
        Dim ret As Integer

        Console.WriteLine("## Create!Form Runtime Call. ##")

        ' ①実行オプションの設定
        param = New RuntimeParam
        param.WorkDir = "C:\ProgramData\Infotec\CreateForm\12\work\sample\01_申請・申込書"
        param.StyleFile = "A02_JukiCardShinsei.sty"

        ' ②入力データファイルの設定
        inputStd = New InputDataParamStandard
        inputStd.DataFile = param.WorkDir & "\A02_JukiCardShinsei.csv"
        inputData = New InputDataParam() {inputStd}
        param.InputData = inputData

        ' ③出力プリンターの設定
        paramEx = New WinExpansionParam
        paramEx.PrinterName = "PrinterName"
        expansions = New ExpansionParam() {paramEx}
        param.Expansions = expansions

        ' ④ランタイムオブジェクトを作成し、のExecute メソッドを実行
        printstage = New PrintStageRuntime
        ret = printstage.Execute(param)

        ' ⑤ランタイム実行の後処理
        If ret <> 1 Then
            ' エラー処理
            Console.WriteLine("Error Code:" + ret.ToString("D"))
        Else
            Console.WriteLine("Success")
        End If
    End Sub

End Module

このサンプルコードを実行すると、指定したプリンター(PrinterName)に帳票が印刷出力されます。