tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルexcelの複数シートを選択して印刷したい
記事No12427
投稿日: 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

[ツリー表示へ]
タイトルRe: excelの複数シートを選択して印刷したい
記事No12430
投稿日: 2008/06/04(Wed) 10:41
投稿者魔界の仮面弁士
> 複数シートを選択して印刷する場合どのようにしたらよいのでしょうか。

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

[ツリー表示へ]
タイトルRe^2: excelの複数シートを選択して印刷したい
記事No12435
投稿日: 2008/06/04(Wed) 12:02
投稿者すぎぽん
> > 複数シートを選択して印刷する場合どのようにしたらよいのでしょうか。
>
> xlBok.Worksheets(Array("Sheet1", "Sheet3")).PrintPreview

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

[ツリー表示へ]