VB-Report 11.0 for .NET - ASP.NET Core MVC デモ

見積書

見積書の作成例です。デザインファイルに予め設定された計算式を再計算して金額を出力しています。


サンプルコード

  • C#
  • VB.NET
  • public ReportData CreateQuotation()
    {
        // 帳票作成処理（デザインファイル使用）
        cellReport1.FileName = Path.Combine(basePath, "Quotation.xlsx");
        // 帳票出力時にセルの計算式を再計算
        cellReport1.ApplyFormula = true;
        cellReport1.Report.Start(ReportMode.Speed);
        cellReport1.Report.File();
        // デザインファイル内の「見積書」シートを帳票レイアウトとして指定し、帳票ページを作成
        cellReport1.Page.Start("見積書", "1");
        cellReport1.Cell("A21").Value = "VB-Report 10";
        cellReport1.Cell("E21").Value = 5;
        cellReport1.Cell("F21").Value = 85000;
        cellReport1.Cell("A22").Value = "ExcelCreator 2016";
        cellReport1.Cell("E22").Value = 2;
        cellReport1.Cell("F22").Value = 64000;
        cellReport1.Cell("A23").Value = "ExcelWebForm";
        cellReport1.Cell("E23").Value = 1;
        cellReport1.Cell("F23").Value = 70000;
        cellReport1.Cell("A24").Value = "ExcelCreator for Java";
        cellReport1.Cell("E24").Value = 3;
        cellReport1.Cell("F24").Value = 40000;
        cellReport1.Cell("A25").Value = "Yubin7 for Java";
        cellReport1.Cell("E25").Value = 3;
        cellReport1.Cell("F25").Value = 34000;
        // ページ終了処理
        cellReport1.Page.End();
        // 帳票終了処理
        cellReport1.Report.End();
        // 作成した帳票を SVG 形式で取得
        string document = cellReport1.Report.GetSvgReport(SvgSaveType.IncludeExcelPdf);

        ReportData reportData = new ReportData();
        reportData.Document = document;
        return reportData;
    }
  • Public Function CreateQuotation() As ReportData
        ' 帳票作成処理（デザインファイル使用）
        CellReport1.FileName = Path.Combine(basePath, "Quotation.xlsx")
        ' 帳票出力時にセルの計算式を再計算
        CellReport1.ApplyFormula = True
        CellReport1.Report.Start()
        CellReport1.Report.File()
        ' デザインファイル内の「見積書」シートを帳票レイアウトとして指定し、帳票ページを作成
        CellReport1.Page.Start("見積書", "1")
        CellReport1.Cell("A21").Value = "VB-Report 10"
        CellReport1.Cell("E21").Value = 5
        CellReport1.Cell("F21").Value = 85000
        CellReport1.Cell("A22").Value = "ExcelCreator 2016"
        CellReport1.Cell("E22").Value = 2
        CellReport1.Cell("F22").Value = 64000
        CellReport1.Cell("A23").Value = "ExcelWebForm"
        CellReport1.Cell("E23").Value = 1
        CellReport1.Cell("F23").Value = 70000
        CellReport1.Cell("A24").Value = "ExcelCreator for Java"
        CellReport1.Cell("E24").Value = 3
        CellReport1.Cell("F24").Value = 40000
        CellReport1.Cell("A25").Value = "Yubin7 for Java"
        CellReport1.Cell("E25").Value = 3
        CellReport1.Cell("F25").Value = 34000
        ' ページ終了処理
        CellReport1.Page.End()
        ' 帳票終了処理
        CellReport1.Report.End()
        ' 作成した帳票を SVG 形式で取得
        Dim document As String = CellReport1.Report.GetSvgReport(SvgSaveType.IncludeExcelPdf)

        Dim reportData As ReportData = New ReportData()
        reportData.Document = document
        Return reportData
    End Function