tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
VB2010 から Excel のシートの指定範囲を印刷する(VB.NET) ( No.28 )  [親スレッドへ]
日時: 2012/06/06 19:25
名前: VBレスキュー(花ちゃん)

***********************************************************************************
* カテゴリー:[エクセル][][]                                                      *
* キーワード:Excel VBA,Excel2010,印刷,印刷する範囲を指定                         *
***********************************************************************************
'===================================================================================================
'投 稿 日:2012.05.06
'投 稿 者:VBレスキュー(花ちゃん)
'タイトル:VB2010 から Excel のシートの指定範囲を印刷する
'========1=========2=========3=========4=========5=========6=========7=========8=========9=========0

Private Sub Button26_Click(sender As System.Object, e As System.EventArgs) Handles Button26.Click
   Call ExcelOpen("", "")     '新規ファイルをオープンして、Excel を起動
   '=========================== 指定範囲を印刷する ==============================
   '--------------------------------------------------------------------------
   '仮データの入力
   Dim xlRange As Excel.Range = Nothing
   For r As Integer = 1 To 80
      For c As Integer = 1 To 15
         xlRange = xlSheet.Range(R1ToA1(r, c), R1ToA1(r, c))
         xlRange.Value = Str(r) & "," & Str(c)
         MRComObject(xlRange)
      Next
   Next

   '指定範囲を格子で罫線を引く(指定範囲を印刷する事とは関係ありません)
   ' 罫線を引く場合は、下記を参照して下さい。
   ' http://www.hanatyan.sakura.ne.jp/dotnet/Excel06.htm#no3 
   Call SetLine(1, 1, 40, 8, Excel.XlLineStyle.xlContinuous, Excel.XlBorderWeight.xlThin, 0)
   '確認のために、1秒間表示しておく
   System.Threading.Thread.Sleep(1000)

   Dim xlPageSetup As Excel.PageSetup
   xlPageSetup = xlSheet.PageSetup
   xlPageSetup.PrintArea = "A1:H40"
   xlSheet.PrintOutEx()
   '確認のために、1秒間表示しておく
   System.Threading.Thread.Sleep(1000)
   MRComObject(xlPageSetup)

   '=============================================================================
   'Excelファイルを上書き保存(True 又省略すれば)して終了処理を実行
   Call ExcelClose(IO.Path.GetFullPath(".\Test.xlsx"), False)  'False の場合保存しないで終了
   'Excel.EXE がタスクマネージャに残っていないか調査(実使用時は必要なし)
   Call ProcessCheck()
End Sub



 [スレッド一覧へ] [親スレッドへ]