tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。