タイトル : excelの複数シートを選択して印刷したい 投稿日 : 2008/06/04(Wed) 09:19 投稿者 : すぎぽん
excelのシート(1シート)を印刷する場合、下記のコード で行っていますが複数シートを選択して印刷する場合どのように したらよいのでしょうか。いろいろ調べてやってみましたが うまくいきません。よろしくお願いします。 OS:Windows XP SP2 Excel:Excel2000 Option Explicit Private xlApp As Excel.Application Private xlBok As Excel.Workbook Private xlSht As Excel.Worksheet Private Sub Command1_Click() Set xlApp = CreateObject("Excel.Application") Set xlBok = xlApp.Workbooks.Open("C:\test.xls") Set xlSht = xlBok.Worksheets(1) xlApp.Visible = True xlBok.Activate xlSht.PrintPreview Set xlSht = Nothing xlBok.Close Set xlBok = Nothing xlApp.Quit Set xlApp = Nothing End Sub |