Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7827 / 13645 ツリー ←次へ | 前へ→

【36637】Win Me でのマクロ印刷の疑問 春まき 06/4/6(木) 6:42 質問[未読]
【36640】Re:Win Me でのマクロ印刷の疑問 Kein 06/4/6(木) 13:13 発言[未読]
【36642】Re:Win Me でのマクロ印刷の疑問 春まき 06/4/6(木) 14:25 お礼[未読]

【36637】Win Me でのマクロ印刷の疑問
質問  春まき  - 06/4/6(木) 6:42 -

引用なし
パスワード
   職場のPCの印刷がいつのまにか白黒印刷になっているという症状が出ました。
まだこのPC(Me)を触りだして3日目で当惑状態です。
印刷時にプリンターのプロバティを見ると白黒にチェックが入っているので
カラーにチェックを戻せばいいのですが、問題は何故白黒モードに変わっていたのかです。
思い当たるのは自分の持ち込んだエクセルファイルのマクロに
白黒モードにするマクロが入れてあることです。

  ActiveSheet.PageSetup.PrintArea = "$F$1:$AK$53"
  With ActiveSheet.PageSetup
    .BlackAndWhite = True
    .Zoom = 97
  End With
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

このファイルは白黒で印刷する必要があるためこのコードが入れてあるのですが
XPパソコンを使っている間は自動的にカラー印刷に戻っていて
このような症状はありませんでした。

Meパソコンだとカラーに戻すようなコードを追加する必要があるのでしょうか。
アドバイスお願いします。

【36640】Re:Win Me でのマクロ印刷の疑問
発言  Kein  - 06/4/6(木) 13:13 -

引用なし
パスワード
   >カラーに戻すようなコードを追加する必要があるのでしょうか
というより、困っているなら PrintOut した後に PageSetup.BlackAndWhite = False
のコードを追加して、実際にテストしてみたかどうかが問題なのでは ?
それとも別のOSを入れ直しますか ? 原因の追求ならここへ質問するより、Microsoft社
へ直接たずねた方が的確な答えをもらえるでしょう。

【36642】Re:Win Me でのマクロ印刷の疑問
お礼  春まき  - 06/4/6(木) 14:25 -

引用なし
パスワード
   >というより、困っているなら PrintOut した後に PageSetup.BlackAndWhite = False
>のコードを追加して、実際にテストしてみたかどうかが問題なのでは ?

そうでした、基本でした。

>へ直接たずねた方が的確な答えをもらえるでしょう。

さっそく電話してみます。
お世話かけました。

7827 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free