[[20220617094226]]　『印刷設定が反映されない』（ララダス）　ページの最後に飛ぶ

『印刷設定が反映されない』（ララダス）

以下のような
コードが有ります。

Sub 印刷()
'
'
Dim srcSheet As Worksheet

Application.Dialogs(xlDialogPrinterSetup).Show

    For i = 2 To Sheets.Count
        Set srcSheet = Worksheets(i)
        srcSheet.PrintOut
    Next
End Sub

実行すると設定画面は開くのですが、そこで設定した内容が反映されないのです。
どのようにすればいいのでしょうか?

＜使用 Excel：Excel2003、使用 OS：Windows10 ＞

 >そこで設定した内容が反映されないのです。 
 プリンターの選択は正しいですか。
（???） 2022/06/17(金) 11:00

正しいです。
（ララダス） 2022/06/17(金) 11:07

 >そこで設定した内容
 どのような設定をしているのですか。
 設定は毎回違うのですか。
 そのコードは自分で書いたものですか。
 それともサイトからのコピーですか。
 使用するプリンタは決まっているんですか。

（???） 2022/06/17(金) 11:26

プリンターの設定はA4サイズで両面印刷するというものです。
プリンターも設定も常に同じだけど使用するPCは個人個人違います。
コードはサイトからの引用です。

（ララダス） 2022/06/17(金) 13:08

捕捉します。
個人個人が出張先で日報を記入した物を会社で印刷して保管するという事です。
　
マクロが崩れたりすると困るのでパスワードでブックを保護しています。
（ララダス） 2022/06/17(金) 14:02

 Excel2010と2003でやってみましたが、
 どちらも使用するプリンターの変更、モノクロ／カラーの設定変更は効きました。

 両面印刷については
 設定した時にアクティブだったシートには反映されている様ですが、
 別のシートに移動すると、選択したプリンタのデフォルト設定のままです。
 試してないですけど、たぶん「Nアップ」とかも同様だと思います。

 ↑この挙動は私自身「元々そういうもんでしょ?」って認識だったんですけど、違うんですかね?

（白茶） 2022/06/17(金) 14:14

 一応補足。

 >>元々そういうもんでしょ?
 ってのは、

 Dialogs(xlDialogPrinterSetup).Show
 で設定した場合に限った話じゃなくて
 手動で
 複数シートを選択した状態で両面印刷に設定しても、
 全てのシートに両面印刷が反映される様な事にはならないでしょ?

 って事ね。
 少なくとも私の環境では昔から歴代プリンタ全てでそうなのです。

（白茶） 2022/06/17(金) 15:01

 Excelの複数シートを両面印刷しようとしても片面で印刷されてしまうので
 PDFにしてから両面印刷してましたけれどそうなのですね
（なるへそ） 2022/06/17(金) 15:07

 >プリンターも設定も常に同じだけど使用するPCは個人個人違います。
 個人個人によってプリンター設定が違うのでは。
 プリンターは共用なんですか。
 共用ならばアドレスを設定しないといけないと思います。
 >プリンターも設定も常に同じだけど
 ならば Application.Dialogs(xlDialogPrinterSetup).Show は
 必要ないんじゃないですか。
（???） 2022/06/17(金) 17:36

コメント返信：

[ 一覧(最新更新順) ]

[[20220617094226]] 『印刷設定が反映されない』（ララダス） ページの最後に飛ぶ

[[20220617094226]]　『印刷設定が反映されない』（ララダス）　ページの最後に飛ぶ