excelのシート（１シート）を印刷する場合、下記のコード
で行っていますが複数シートを選択して印刷する場合どのように
したらよいのでしょうか。いろいろ調べてやってみましたが
うまくいきません。よろしくお願いします。

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

> 複数シートを選択して印刷する場合どのようにしたらよいのでしょうか。

xlBok.Worksheets(Array("Sheet1", "Sheet3")).PrintPreview

> > 複数シートを選択して印刷する場合どのようにしたらよいのでしょうか。
>
> xlBok.Worksheets(Array("Sheet1", "Sheet3")).PrintPreview

すみません。
どうもありがとうございました。