- 日時: 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
|