VB (.NET Framework)からの帳票出力

PDFに出力

Excelに出力

印刷

プレビュー

VB (.NET Framework)からプレビュー出力する方法

.NETアプリケーションではCROWNIXの専用ビューア（OCX Viewer）をWindowsコントロールとして画面に組込むことが可能です。

1.デザイン

画面にコントロールを追加

2.コード

ボタンクリック時の処理を追加

3.実行画面

ボタンクリックでレポートを表示

サンプルコード

テンプレートパスを指定し、実行するとプレビューされます。

Public Class Form1
  Dim sApplyLicense = "http://localhost:8080/DataServer/service"
  Dim sMRDPath = "http://localhost:8080/ReportingServer/mrd/sample.mrd"
  Dim sMRDParam = "/rfn [http://localhost:8080/ReportingServer/mrd/sample.txt]"

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim bRtn As Boolean

    AxCxviewer70j1.ApplyLicense(sApplyLicense)
    AxCxviewer70j1.AutoAdjust = False
    AxCxviewer70j1.ZoomRatio = 100
    Try
      bRtn = AxCxviewer70j1.FileOpen(sMRDPath, sMRDParam)

      If bRtn = False Then
        MsgBox("ファイルオープンエラー")
      End If

    Catch ex As Exception
      MsgBox(ex.Message)

    End Try
  End Sub
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'For Test
    Dim localWindowW, localWindowH As Integer

    localWindowW = System.Windows.Forms.Screen.GetWorkingArea(Me).Width
    localWindowH = System.Windows.Forms.Screen.GetWorkingArea(Me).Height

    Me.Left = 0
    Me.Top = 0
    Me.Width = localWindowW
    Me.Height = localWindowH

    AxCxviewer70j1.Left = 0
    AxCxviewer70j1.Top = 30
    AxCxviewer70j1.Width = localWindowW - 500
    AxCxviewer70j1.Height = localWindowH - 80

  End Sub

End Class