複数の WinGrids を Word にエクスポート

// 静的な 'Create' メソッドを使用して、WordDocumentWriter クラスの
// 新しいインスタンスを作成します
// コンテンツを書いた後は、このインスタンスを閉じる必要があります
WordDocumentWriter wordDocWriter = WordDocumentWriter.Create(@"C:\Samples_Projects\GridDataInWord.docx");
// Word ドキュメントを開始します
// これは EndDocument への対応する呼び出しとバランスを取らなければなりません
wordDocWriter.StartDocument();
// 段落を開始しますこれは、
// EndParagraph への対応する呼び出しとバランスを取らなければなりません
wordDocWriter.StartParagraph();
// Font クラスの新しいインスタンスを作成します
Infragistics.Documents.Word.Font font = wordDocWriter.CreateFont();
font.Bold = true;
font.Underline = Underline.Thick;
font.ForeColor = Color.Red;
// 事前にフォントが定義されたテキストを段落に追加します
wordDocWriter.AddTextRun("Products", font);
wordDocWriter.AddNewLine();
// 段落を終わります
wordDocWriter.EndParagraph();
// WinGridWordWriter で Export メソッドを呼び出し、
// Grid コントロールと WordDocumentWriter オブジェクトをパラメーターとして渡します
this.ultraGridWordWriter1.Export(ultraGrid1, wordDocWriter);
wordDocWriter.AddEmptyParagraph();
wordDocWriter.StartParagraph();
// 事前にフォントが定義されたテキストを段落に追加します
wordDocWriter.AddTextRun("Categories", font);
wordDocWriter.AddNewLine();
wordDocWriter.EndParagraph();
// 2 番目のグリッドを Word にエクスポートします
this.ultraGridWordWriter1.Export(ultraGrid2, wordDocWriter);
// ドキュメントを終了します
wordDocWriter.EndDocument();
// ライターを閉じてコンテンツをファイナライズします
wordDocWriter.Close();

' 静的な 'Create' メソッドを使用して、WordDocumentWriter クラスの
' 新しいインスタンスを作成します
' コンテンツを書いた後は、このインスタンスを閉じる必要があります
Dim wordDocWriter As WordDocumentWriter = WordDocumentWriter.Create("C:\Samples_Projects\GridDataInWord.docx")
' Word ドキュメントを開始します
' これは EndDocument への対応する呼び出しとバランスを取らなければなりません
wordDocWriter.StartDocument()
' 段落を開始しますこれは、
' EndParagraph への対応する呼び出しとバランスを取らなければなりません
wordDocWriter.StartParagraph()
Dim font As Infragistics.Documents.Word.Font = wordDocWriter.CreateFont()
font.Bold = True
font.Underline = Underline.Thick
font.ForeColor = Color.Red
' 事前にフォントが定義されたテキストを段落に追加します
wordDocWriter.AddTextRun("Products", font)
wordDocWriter.AddNewLine()
' 段落を終わります
wordDocWriter.EndParagraph()
' WinGridWordWriter で Export メソッドを呼び出し、
' Grid コントロールと WordDocumentWriter オブジェクトをパラメーターとして渡します
Me.ultraGridWordWriter1.Export(ultraGrid1, wordDocWriter)
wordDocWriter.AddEmptyParagraph()
wordDocWriter.StartParagraph()
' 事前にフォントが定義されたテキストを段落に追加します
wordDocWriter.AddTextRun("Categories", font)
wordDocWriter.AddNewLine()
wordDocWriter.EndParagraph()
'  2 番目のグリッドを Word にエクスポートします
Me.ultraGridWordWriter1.Export(ultraGrid2, wordDocWriter)
wordDocWriter.EndDocument()
' ライターを閉じてコンテンツをファイナライズします
wordDocWriter.Close()