いつもありがとうございます。
今回 なんですが、windows98 と2000の両方についても質問になりますが、
印刷の設定で、給紙方法を手差しを選択し、エクセルを終了させます。
そのあとで開くと、給紙方法が、自動になってしまいます。
印刷を行うときに毎回変更しなくてはなりません。
そこで、変更しなくてもできる方法を教えて頂けませんか?
また、マクロで印刷を自動で行う場合に給紙方法を設定できれば、すみませんが
教えて下さい。
プリンターはcanon LBP-910です。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

エクセルのプリンタ設定で行うのではなく、コントロールパネルでのプリンタ設定が自動に設定されているとそのような事になると思います。


アプリケーションでのプリンタ設定よりもコントロールパネルの設定が優先されるはずです。
一度確認下さい。

この回答への補足

回答ありがとうございます。
各アプリケーションに応じ対応させるために
プリンター設定は、自動にする方法になります。
しかし、それを書き換えられる事ができないかと思いまして
質問を出しました。
CANONのホームページから技術情報の手に入れて作ったことが
ある方を探しています。

補足日時:2002/03/26 09:04
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QEXCELの複数シートのページ設定(印刷設定)を一度に変更したい。

50シートくらいあるEXCELのシートのページ設定を変えたいときに1シート変更しても他のシートは変更されません。一度に変更する良い方法はありますか?それとも1シートずつ設定するしかないのでしょうか?宜しくお願いいたします。

Aベストアンサー

シート名のタグにカーソルを持っていき、右クリック。
出てきたメニューから「すべてのシートを選択」を選ぶ。
それから、ページ設定すれば、全部のページに反映されます。

「すべてのシートを選択」すると、シートタグの色がすべて背景色と同じになります。
この状態を元に戻すには、同じくシート名タグで右クリックし、「作業グループの解除」を選択すればOKです。

QEXCELで、A3からA4に縮小印刷したいシート数が50枚ほどあります。まとめて縮小印刷の設定を変更する方法を教えてください。

EXCELファイルの中に60枚ほどシートが作成してあります。
その中の50枚のシートのページ設定をA3からA4縮小印刷できるように設定しているのですが、あまりにもシート数が多すぎるためまとめて設定をしたいのですが、うまくいきません。
作業グループの設定後、試みましたがこれもうまくいきませんでした。

まとめて設定できる方法があれば、どなたか教えていただけないでしょうか?

Aベストアンサー

A3→A4は初期のエクセルファイルでは比率67%縮小扱いでした。

シートタブを右クリック→「全てのシートを選択」
「ファイル」→「印刷設定」
(※印刷プレビューは使用しない)

・拡大/縮小を67%に変更
・印刷用紙をA4に変更

これで全てのシートの設定が変更となります。

印刷されたいシートの余白が同じなら、一度、A3→A4の縮小率を確認した上で、上記の方法では無理でしょうか?

QEXCELの印刷設定とプリンターの印刷設定の違い

EXCELのシート1で印刷設定を両面印刷にして印刷しました
シート2で印刷設定をカラー印刷にして印刷しました

その後、両シートとも白黒で片面印刷する事になったので、コントロールパネルからプリンターの設定を白黒で片面印刷にしました
ところが、以前に各シートで設定した印刷設定で印刷されました
大本の設定の方が強いと思っていましたが、違うのでしょうか?

Aベストアンサー

確か出た結果の通りだったと思います。

ExcelはSheet単位でプリンタの設定情報を保持してます。

ただし、印刷先のプリンタの機種等が変更された際、Sheetに保管されているプリンタの設定情報が使用できないため、コントロールパネルから設定しているプリンタの設定情報を使用します。
この後、ファイルを保管すると印刷した時の設定情報に変更し、また保管されます。
新規にBook/Sheetを作成した際は、コントロールパネルから設定してるプリンタの設定情報を取得しますけどね。

QEXCEL 印刷の設定を自動で

お世話になります。

EXCELの印刷のことで質問です。

通常の場合、印刷の設定は毎回設定しなおすものですが、
ある印刷だけを固定にしたいと思っています。
(できればの話ですが)


固定したいこと

・プリンタ 
・用紙サイズ
・プリンタ内の詳細設定(打ち出す場所、スピード、180度回転して印刷する)

このブックの場合は、このパターンでって設定しておくことは可能でしょうか??
よろしくお願いします。

Aベストアンサー

2010ですか。

多分、ページ レイアウト→ページ設定 → ダイアログ ボックス起動ツール

にあるかと。

正直、2007以降は未知の世界ですのでお望みどおりになるかどうかは保証できません。

QExcel 印刷時に複数範囲を含む自動範囲設定

始めまして、こういった場所は始めてなので少し緊張しております。
Excelで更新回数の多い表を作っております。
今までは少数の人間で作っていましたが今後かなり多くの社員が使う事になり、更に更新度が増えた為、雛形を作る事となりました。
よって・入力シートと印刷用シートに分けて作りました。
入力シートに入力した項目が二つの印刷シートにそれぞれ入力されるようにしてあります。
印刷用シートは両方保護をかけ、使用者が書き換えてしまわないようにしてあります。
印刷シートは例として次のようになっています。
=====================================
 <<印刷タイトル>>

       説明書き等いろいろ 
▽新規表
+--------+--------+--------+-------+
|太郎 |xxx-xxxx|東京都 |------ |
+--------+--------+--------+-------+
|花子  |xxx-xxxx|大阪府 |------ |
+--------+--------+--------+-------+
|義男  |xxx-xxxx|東京都 |------ |
+--------+--------+--------+-------+
長文~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~

××産業株式会社 4月付
=====================================
2枚ともスタイルは同じで、内容が個人情報を極力抑えた物と
入力したものそのままの物があります。
ちょうど中央に表があり、その表が今後まだ増える予定となっています。
ココまではなんとかできました>_<
しかし、そのデータの増える表は予め罫線のみ引っ張ってあり、内容の空の部分も、印刷されてしまします。
Print_AreaにOFFSET文を使って範囲指定してみたのですが、
セルが隣り合ってしまうと関数が消えてしまい、
間に空白セルを入れると改ページされてしまいます。
いろいろ他に調べたのですがどれもうまく行きません。
何か良い方法は無いでしょうか?
あとの問題はコレだけなのです!
どうか、お知恵をお貸し下さい!

始めまして、こういった場所は始めてなので少し緊張しております。
Excelで更新回数の多い表を作っております。
今までは少数の人間で作っていましたが今後かなり多くの社員が使う事になり、更に更新度が増えた為、雛形を作る事となりました。
よって・入力シートと印刷用シートに分けて作りました。
入力シートに入力した項目が二つの印刷シートにそれぞれ入力されるようにしてあります。
印刷用シートは両方保護をかけ、使用者が書き換えてしまわないようにしてあります。
印刷シートは例として次のように...続きを読む

Aベストアンサー

A列に「×」がある行は非表示にして印刷するようにしてみました。
これでダメならステップ実行して一行ずつ動作を確認するしかないですね。もしかしたらマクロが実行されていないかもしれません
余分ですがマクロが実行されたらメッセージを出すようにしました。(8行目)

このメッセージが表示されないなら何らかの理由でマクロが実行されていないということになります。不要になったら8行目は削除して下さい

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim idx, LastR As Long
Const sh1 As String = "プライベート版表示"
Const sh2 As String = "正規版表示"
On Error GoTo end0
With ActiveSheet
If .Name = sh1 Or .Name = sh2 Then
MsgBox("Macroが実行されています")
Application.ScreenUpdating = False
LastR = .Range("A65536").End(xlUp).Row
For idx = 1 To LastR
' If Application.CountA(.Rows(idx)) = 0 Then
If .Cells(idx, "A") = "×" Then 'ここが変わりました
.Rows(idx).Hidden = True
End If
Next idx
Application.EnableEvents = False
.PrintOut
.Range("A1:A" & LastR).EntireRow.Hidden = False
Cancel = True
End If
End With
end0:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

A列に「×」がある行は非表示にして印刷するようにしてみました。
これでダメならステップ実行して一行ずつ動作を確認するしかないですね。もしかしたらマクロが実行されていないかもしれません
余分ですがマクロが実行されたらメッセージを出すようにしました。(8行目)

このメッセージが表示されないなら何らかの理由でマクロが実行されていないということになります。不要になったら8行目は削除して下さい

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim idx, LastR As Long
Const sh1...続きを読む


人気Q&Aランキング

おすすめ情報