1 サブBrowse_Click（） 2 ' 印刷情報 3。 薄暗い columnCountの同様の 整数 ' 列 4。 薄暗いをrowCount としての 整数 ' 行 5。 columnCountのは= たgetColumnCount（XsXxSheet）を 6。 をrowCount = Application.CountA（ActiveSheet.Range（" B：B " ）） 7 インクルードする場合をrowCount = 0 その後 。8 のMsgBox（" 印刷なしデータなし、！" ） 。9 番出口のSub 10が 終了し た場合 。11 の場合をrowCount = 1。 次に 12で のMsgBox（「ノーデータは印刷せずに、！」） 13は、 出口は、サブ 14 終了 の場合 15 16 ワークシート（「学生情報印刷テンプレート」）.Visible =が真 17。 「とプロンプトウィンドウ排出 18を 」サイクル1 - - OK 。19 について RO = 2 の 2 20である ' 円柱充填学生テンプレート情報2-- - >新しいExcel生成 21である ため = COL 1 にcolumnCountの 22であります タイトル=シート（XsXxSheet）.Cells（1 、COL） 23 の場合タイトル<> "" そして 24 薄暗いの含有量としては 文字列 25 コンテンツ= シート（XsXxSheet）.Cells（RO、COL） 26 薄暗い EXL としてTypeValueCell 27 exl.cellName = タイトル 28 exl.cellContent = コンテンツ 29 AA = fileXsExportModel（EXL） 30 エンド 場合は 31 次COL 32 次RO 33 ワークシート（「学生情報印刷テンプレート」）.PrintPreview 34が 「空のテンプレート 35 について COL = 1 にcolumnCountの 36 タイトル=シート（XsXxSheet）.Cells（1 、COL） 37 の場合タイトル<> 『』 次に 38は 暗い content2 としての 文字列 39 シート= content2（XsXxSheet）.Cells（2 、COL） 40 薄暗い exl2 としてのTypeValueCell 41は exl2.cellName = タイトル 42であります = exl2.cellContent content1 43 BB = clearXsExportModel（exl2） 44 終了 の場合が 45 次COL 46枚 のワークシート（" 学生情報を印刷テンプレート"）.Visible = Falseの 47 End Subの