VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/06/12(Thu) 16:08
投稿者： 低速人
Ｅメール：
ＵＲＬ：
タイトル： Excel印刷設定の高速化

こんにちは
いつもいろいろと参考にさせて頂いております。
今日は１つ教えて頂きたく投稿します。

VBよりExcelシートをページ設定をしています。
現状、下記のコードで動作しているんですが、とても遅いです。
どうもページ設定を1行ずつ設定いる動きに感じます。
もっと高速に処理する方法はないでしょうか？

Excelマクロにより記録を取って試したりしているのですが、記録時は早いのに
記録したマクロを実行するとやっぱり遅いです。

ご存知の方、どうか教えてください

環境
VB : VB6 sp5
Excel : Excel97
OS : WinNT 4.0 sp5

    Dim objApp   As Excel.Application
    Dim objBook  As Excel.WorkBook
    Dim objSheet As Excel.Worksheet

　　Set objApp = CreateObject("Excel.Application")
　　Set objBook = objApp.Workbooks.Add
　　Set objSheet = objBook.Worksheets(1)
　　
    With objSheet.PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
            .PrintArea = "$B$2:$CF$44"
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = objApp.InchesToPoints(0.22)
            .RightMargin = objApp.InchesToPoints(0.2)
            .TopMargin = objApp.InchesToPoints(0.511811023622047)
            .BottomMargin = objApp.InchesToPoints(0.393700787401575)
            .HeaderMargin = objApp.InchesToPoints(0.196850393700787)
            .FooterMargin = objApp.InchesToPoints(0.196850393700787)
            .PrintHeadings = False
            .PrintGridlines = False
            .PrintComments = xlPrintNoComments
            .CenterHorizontally = True
            .CenterVertically = True
            .Orientation = xlLandscape
            .Draft = False
            .PaperSize = xlPaperA3
            .FirstPageNumber = xlAutomatic
            .Order = xlDownThenOver
            .BlackAndWhite = False
            .Zoom = 100
    End With

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -