4.5.3 .NETアプリケーション作成例

以下にNavigator連携機能を使った.NETアプリケーション作成例を記載します。

1つの帳票をPDF形式のファイルとして保存する.NETアプリケーション作成例

Visual C#.NETで作成する場合とVisual Basic.NETで作成する場合の例です。「売上伝票」という名前の帳票定義情報を読み込み、navi_svrという名前のInterstage Navigator Serverからデータを取得し、「D:\work\assets\売上伝票.pdf」にPDFファイルを出力します。

Visual C#.NETの場合

using System;
using fujitsu.listcreator;

namespace ListCreatorSample
{
    class Sample
    {
        [STAThread]
        static void Main(string[] args)
        {
            try
            {
                // Formsオブジェクトを設定します。
                Forms form = new Forms("売上伝票", @"D:¥work¥assets");
                form.setDataSource("¥"dd_server=navi_svr¥";¥"dd_user=navi¥";¥"dd_pwd=abcd¥"");
                form.execDataSource();

                // PrintPropertiesの設定をします
                PrintProperties prop = new PrintProperties();
                prop.DirectMethod = PrintProperties.OUTPUTMODE_PDF;
                prop.KeepPdf = @"D:¥work¥assets¥売上伝票.pdf";

                // 帳票を出力します
                PrintForm pform = new PrintForm();
                pform.PrintOut(form, prop);
            }
            catch(PrintException e)
            {
                // Error
                System.Console.WriteLine(
                    "エラーコード={0}, エラーメッセージ={1}", e.ErrorCode, e.Message);
            }
        }
    }
}

Visual Basic.NETの場合

Imports fujitsu.listcreator

Module Module1

    Sub Main()

        Try
            Dim form As New Forms("売上伝票", "D:¥¥work¥¥assets")
            Dim prop As New PrintProperties
            Dim pform As New PrintForm

            'Formsオブジェクトを設定します
            form.setDataSource("""dd_server=navi_svr""; ""dd_user=navi""; ""dd_pwd=abcd""")
            form.execDataSource()

            'PrintPropertiesの設定をします
            prop.DirectMethod = PrintProperties.OUTPUTMODE_PDF
            prop.KeepPdf = "D:¥¥work¥¥assets¥¥売上伝票.pdf"

            '帳票を出力します
            pform.PrintOut(form, prop)

        Catch ex As PrintException
            'エラー
            Console.WriteLine("エラーコード={0}, エラーメッセージ={1}", ex.ErrorCode, ex.Message)

        End Try
    End Sub

End Module