[[20171123171839]]　『ブック全体の印刷品質を変更するマクロの作成依頼』（ぷしん）　ページの最後に飛ぶ

『ブック全体の印刷品質を変更するマクロの作成依頼』（ぷしん）

お世話になっております

エクセル2013で
ブック全体の印刷品質を変更するVBAマクロを教えていただけませんでしょうか
VBAは、いただいたものを張り付けて使える程度のレベルです
複数ブック、複数のシートを一つずつ変更すのに大変手間がかかっております
よろしくお願いいたします

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

コントロールパネルから、使用するプリンタのデフォルト設定を変更しておくのはだめですか？

（　マナ） 2017/11/23(木) 20:53

コントロールパネルのプリンターでは、エクセルのページ設定内の印刷品質を変更することはできませんでした　お返事ありがとうございました

ネット上のお詳しい方のサイトにあったVBAを実行しましたが、
「Nextで指定された変数の参照が不正です」とエラーがでてしまいます

Sub Set600DPI()

    ' *** 選択シートのDPIを600dpiに統一する ***
    Dim SelShts As Object
    For Each SelShts In ActiveWindow.SelectedSheets
        SelShts.PageSetup.PrintQuality = 600
    Next Sht
End Sub

（ぷしん） 2017/11/24(金) 08:23

＞For Each SelShts
＞Next Sht

変数名が異なっています

（　マナ） 2017/11/24(金) 08:40

マナ様　ありがとうございました
Next SelShtsにしたところ　うまく作動しました
解決です

（ぷしん） 2017/11/24(金) 13:06

コメント返信：

[ 一覧(最新更新順) ]

[[20171123171839]] 『ブック全体の印刷品質を変更するマクロの作成依頼』（ぷしん） ページの最後に飛ぶ

[[20171123171839]]　『ブック全体の印刷品質を変更するマクロの作成依頼』（ぷしん）　ページの最後に飛ぶ