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

PDFに出力

Excelに出力

印刷

プレビュー

VB (.NET Framework)からプリンターに印刷する方法

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

1.デザイン

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

2.コード

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

3.実行画面

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

サンプルコード

サーバーのプリンタを呼び出すことでレポートを印刷します。

Imports AxCxviewer70jLib

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
    sMRDParam = sMRDParam + "/rop /rwait /rpdrv [Microsoft XPS Document Writer]"

    AxCxviewer70j1.ApplyLicense(sApplyLicense)

    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 AxCxviewer70j1_PrintFinishedEx(sender As Object, e As _DCxviewer70jEvents_PrintFinishedExEvent) Handles AxCxviewer70j1.PrintFinishedEx
    MsgBox("プリンタ名：" + e.szPrinterName.ToString() _
        + vbCrLf + "ページ数：" + e.nPageCount.ToString())
    'MsgBox(e.nPageCount.ToString())
  End Sub
End Class