竹島の領土問題に関して

竹島の領土問題に関して
国際司法裁判所への共同提訴が実現した場合、
韓国側が国際司法裁判所への共同提訴を受け入れないのは
民族的、歴史的に分かっているが、
国際社会がどう判決を下すのか、そちらに非常に興味がある。

竹島については日本と韓国の両国にそれぞれ主張があるのだから、
是非、やってもらいたいものだ。

親書を突き返すまでなのだから、
これはこれで、ひと昔前であれば紛争への引き金ともなりえない。

クリスタルレポート2010(crystal reports for visual studio)

VB 2010 からクリスタルレポート 2010 を印刷、出力する方法。

[環境]
crystal reports for visual studio 2010
Microsoft Visual Studio 2010 Premium

1,Microsoft Visual Studio 2010 Premium を起動します。

2,[メニュー][ファイル][新しいプロジェクト][Windows フォームアプリケーション]を選択します。

3.下記画面になります。

4.[ツールボックス]からButtonを二つ配置します。

5.[ツールボックス]からCrystalReportViewerを配置します。

6.[ソリューションエクスプローラー]から下記図の通り[新しい項目]を選択します。

7.下記画面となり[Reporting]から[Crystal Reports]を選択します。

8.下記の通り

9.下記の通り

10.下記の通り

11.下記の通り

12.下記の通り

13.下記の通り

14.下記の通り

15.表示名、フォント、サイズ等の変更

16.ボタンラベル、フォームサイズを変更

【ソースコード】
Imports CrystalDecisions.Windows.Forms
Imports CrystalDecisions.CrystalReports.Engine

Public Class Form1

Private printImage As ReportDocument = New ReportDocument()

'初期表示
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Button2.Enabled = False

'ステータスバーを表示するかどうかを取得または設定します。
Me.CrystalReportViewer1.DisplayStatusBar = False

'レポートをビューウィンドウの枠から離して表示するかどうかを判別します。False = 左側とTOPがくっつく
Me.CrystalReportViewer1.DisplayBackgroundEdge = False

Me.CrystalReportViewer1.EnableDrillDown = False

'グループツリー非表示
CrystalReportViewer1.ToolPanelView = ToolPanelViewType.None

End Sub

'プレビューボタン
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim reportPath As String = _
"（絶対パス）\CrystalReport1.rpt"

printImage.Load(reportPath)

Me.CrystalReportViewer1.ReportSource = printImage

Button2.Enabled = True

End Sub

'印刷ボタン
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim reportPath As String = _
"（絶対パス）\CrystalReport1.rpt"

printImage.Load(reportPath)

printImage.PrintToPrinter(1, True, 1, 2) '直接印刷

End Sub

End Class

17.ビルド後