[[20091023105010]]　『EXCEL印刷時の「部単位で印刷」チェックについて』（EXCEL初心者S）　ページの最後に飛ぶ

『EXCEL印刷時の「部単位で印刷」チェックについて』（EXCEL初心者S）

 EXCEL２００３の[印刷]時、印刷設定画面の「部単位で印刷」のチェックマークが
常にチェックがついていますが、普段チェックを外して印刷する事が多く、
毎回チェックを外すのが面倒なので固定でチェックが外れてるような設定をしておく
方法があれば教えていただけないでしょうか。　よろしくご教授下さい。

 「ファイル」―「印刷」のダイアログで「プロパティ」ボタンを押してプリンタの設定画面を呼び出してそちらで「部単位」の設定がないか
 確認してあったならばチェックを外してみてください。
 (独覚)

コメントありがとうございます。

プリンタが特殊なプリンタでプリンタの設定画面上
「部単位」とかの設定ができないんです。

なんとか、EXCELの印刷データが行く段階で（EXCEL上で）
「部単位で印刷」のチェックマークを固定で外れてるような設定を
EXCEL上でできないものなのでしょうか？

 ＞「部単位で印刷」のチェックマークを固定で外れてるような設定
 ってのは、難しいみたいですね。

 今、実際に印刷して試せる環境にないので上手く行かないかもしれませんが
 印刷しようと思った時に　以下のようなマクロを実行し
 マクロから　部数を選択して印刷するようにしてみるのはどうでしょう。

 '------
Sub 印刷()
    Dim pnd As Long
pns = Val(InputBox("ページ単位で印刷します。" & vbLf & vbLf & _
                    "何部印刷しますか？", "印刷部数確認", 1))
    If pns = 0 Then
        MsgBox "印刷を中止します。"
    Else
        ActiveWindow.SelectedSheets.PrintOut _
            Copies:=pns, Collate:=False
    End If
End Sub
 '------

 (HANA)

 マクロでやるならこんな方法も

 '==============================================================
 Sub test()
    Dim ans As Variant
    ans = Application.Dialogs(xlDialogPrint).Show(, , , , , , , , , , , , , , False)
    MsgBox ans 'True　実際に印刷された　False　印刷はされていない
 End Sub

 ichinose

皆様、いろいろとありがとうございました。

上記マクロでやってみたいと思います。

（EXCEL初心者S）

コメント返信：

[ 一覧(最新更新順) ]

[[20091023105010]] 『EXCEL印刷時の「部単位で印刷」チェックについて』（EXCEL初心者S） ページの最後に飛ぶ

[[20091023105010]]　『EXCEL印刷時の「部単位で印刷」チェックについて』（EXCEL初心者S）　ページの最後に飛ぶ