- 日時： 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)
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
Dim xlPageSetup As Excel.PageSetup
xlPageSetup = xlSheet.PageSetup
xlPageSetup.PrintArea = "A1:H40"
xlSheet.PrintOutEx()
'確認のために、１秒間表示しておく
System.Threading.Thread.Sleep(1000)
MRComObject(xlPageSetup)
'=============================================================================
'Excelファイルを上書き保存(True 又省略すれば)して終了処理を実行
Call ExcelClose(IO.Path.GetFullPath(".\Test.xlsx"), False) 'False の場合保存しないで終了
'Excel.EXE がタスクマネージャに残っていないか調査(実使用時は必要なし)
Call ProcessCheck()
End Sub
|
VB2010 から Excel のシートの指定範囲を印刷する(VB.NET)