Excelのマクロについて
久しぶりに質問させていただきます。
マクロで印刷の設定をすると
遅くなるのでしょうか?
Range("A1:Z10").Select
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.TopMargin = Application.CentimetersToPoints(1)
.BottomMargin = Application.CentimetersToPoints(1)
.LeftMargin = Application.CentimetersToPoints(1)
.RightMargin = Application.CentimetersToPoints(1)
End With
Selection.PrintPreview
というようなマクロを作って実行すると
プレビュー画面が出るまでに
かなり時間がかかるのです。
職場のパソコンであるため
パソコンそのものがかなり古いのですが
マクロを使わずに直接、印刷の設定をすれば
すぐにプレビューが表示されます。
ただ、同じシートをいろいろな方法で印刷する必要があるため
マクロを組んでみたわけです。
ちょっと我慢すればいいだけで
仕事そのものに大きく影響するわけではありませんが
皆様のご助言をよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
> マクロで印刷の設定をすると
> 遅くなるのでしょうか?
わたしのエクセル2000でも同様に、VBAで印刷のページ設定を行うと非常に遅いです。
ページ設定のコードの前後を、
Application.ScreenUpdating = False と、
Application.ScreenUpdating = True ではさんで画面更新を止めても多少かわる程度かな。
何パターンかページ設定した複数の「雛形」シートを用意しておいて、印刷したいデータだけ、「雛型」に貼り付けするって方法はどうでしょうか?
Application.ScreenUpdating = False
と
Application.ScreenUpdating = True
で、はさんでみたところ
確かに早くなりました。
ありがとうございました!
No.2
- 回答日時:
こんばんは。
Excelのバージョンは何をお使いなのでしょうか?
Excel 2003 までなら、以下のようなコードが生きています。
VBAは、直接、印刷設定が出来るのではありませんから、インターフェイスで変換しているので遅くなります。Ver.4 マクロ関数のほうが速いです。ただ、Excel2003ですと、Ver.4 マクロ関数があるというメッセージが出ます。不必要な場合は、レジストリの変更が必要です。
Sub PrintTest()
ActiveSheet.PageSetup.PrintArea = Range("A1:Z10").Address
Application.ExecuteExcel4Macro ( _
"PAGE.SETUP(,,1,1,1,1,,,,,2,, True,,,,,,,,)")
ActiveSheet.PrintPreview
End Sub
設定内容:
PAGE.SETUP(ヘッダー, フッター, 左余白, 右余白, 上余白, 下余白, 行列番号印刷, 枠線印刷, 中央 (水平), 中央 (垂直), 用紙方向, 用紙サイズ, 拡大縮小, ページ番号, 印刷方向, 白黒印刷, 印刷品質, ヘッダー余白, フッター余白, メモ, 簡易印刷)
詳しいご回答、
本当にありがとうございました。
自宅でテストしてみたところ
プレビュー画面が
あっという間に表示されました。
今日、職場でもやってみます。
また何かありましたら
よろしくお願いいたします!
No.3
- 回答日時:
こんばんは。
>やはり遅いままでした。
>データが多すぎたためでしょうか。
これを見てて、思い出したことですが、VBAコードで、ページ設定側に Zoom が入っていますね。VBAコードから、Zoom をいじるのは、避けたほうがよいです。
あれは、一旦、設定されていたものを、全部、自動改ページなどの位置を再計算し設定し直すものなのです。Zoomさえなければ、速くなるのではないかと思います。最初から、設定しておくとか出来ませんか。
Ver.4 マクロ関数自体は、昔から言われていたことですから、間違いありません。
この回答への補足
お答え、ありがとうございます。
家のパソコンではよく分からなかったため
職場のパソコンで確認してみましたが
残念ながらZoomを消しても
遅いことには変わりありませんでした。
やはり印刷の設定には
マクロは似合わないということなのでしょうね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Excel(エクセル) Excelでnullになるような式のセルをマクロで空白行と認識させるにはどうすればいいですか? 3 2023/03/13 13:42
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
〔Excel:VBA〕マクロの実行が異常に遅くなる
Excel(エクセル)
-
エクセルの印刷がとても遅いのですが
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
5
EXCEL VBAで、PasteSpecialと Destinationの組み合わせ方法?
Excel(エクセル)
-
6
ExcelのVBAでフォームが表示されない
Excel(エクセル)
-
7
エクセルのシート名変更で重複した時のvbaの処理
Visual Basic(VBA)
-
8
Excel印刷プレビューが遅い件
会計ソフト・業務用ソフト
-
9
Excel VBA 処理後データが重たくなる&処理スピードが遅いのを解決したい
Visual Basic(VBA)
-
10
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
-
11
UserForm
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
画像を、余白0でA4全画面で...
-
Wordのファイルを開くと、開い...
-
タイムカードの氏名所属などプ...
-
Excelにて用紙(縦)の、中央左...
-
パワーポイントを印刷する際の...
-
PowerPointでPDF化したときの枠...
-
ワードで用紙全体に色をつけた...
-
Excel 1ページに印刷される行数...
-
A3で作った文書を、半分ずつA4...
-
アプリのエクセル 用紙いっぱい...
-
ワードの縮小印刷
-
ワードで印刷すると左寄りになる
-
word文章の袋とじで 印刷失敗
-
パワーポイントで配布資料を印刷
-
エクセル印刷時に奇数ページと...
-
自宅と会社のPCでエクセルの印...
-
PCで印刷をしていて余白を消し...
-
ワードの印刷時の警告について
-
A5サイズのルーズリーフへの印刷
-
エクセル 印刷時に端から端ま...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
タイムカードの氏名所属などプ...
-
Wordのファイルを開くと、開い...
-
画像を、余白0でA4全画面で...
-
Excelにて用紙(縦)の、中央左...
-
PowerPointでPDF化したときの枠...
-
印刷の際、1枚に印刷する方法
-
A3で作った文書を、半分ずつA4...
-
A4サイズPDFデータをジャストサ...
-
エクセル印刷時に奇数ページと...
-
ワードで用紙全体に色をつけた...
-
Excelで左側に1ページ目、右側...
-
ワードで印刷すると左寄りになる
-
Excel 1ページに印刷される行数...
-
エクセル 印刷時に端から端ま...
-
A5サイズのルーズリーフへの印刷
-
A4のPDF2ページを原寸でA3のP...
-
ロータスノーツでの印刷について
-
A3ノビとは
-
Excelのマクロで印刷設定をする...
-
B7対応のプリンターってありま...
おすすめ情報