No.2ベストアンサー
- 回答日時:
Excelの話です。
特定のファイルを『特定の端末で』印刷する時の設定だけなら、
その特定ファイルのThisWorkbookモジュールというものに Workbook_BeforePrint というイベントプロシージャを設定すれば良いです。
一例ですが
'ThisWorkbook Module
Option Explicit
Private aPrinter As String
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Const pPrinter = "EPSON LP-S0000 on Ne01:" '印刷したいプリンタ
Dim x As Long
With Application
aPrinter = .ActivePrinter
On Error GoTo errHndler
.ActivePrinter = pPrinter
.OnTime Now, "ThisWorkbook.defPrintset"
End With
Exit Sub
errHndler:
x = MsgBox(pPrinter & "に切替できませんでした。" _
& vbLf & "キャンセルしますか?", vbYesNo)
If x = vbYes Then Cancel = True
End Sub
Private Sub defPrintset()
Application.ActivePrinter = aPrinter
End Sub
こんな感じ。
Application.ActivePrinterを印刷(プレビュー)の前後で自動的に切り替える方法です。
でもネットワーク環境での複数端末からの利用に対応させるなら、ちょっと面倒です。
"EPSON LP-S0000 on Ne01:" のポート番号「Ne01:」が端末ごとに違います。
この場合、現実的なのは『このファイルを印刷する時はこのボタンから』、とシート上にボタンを置いて
Sub test()
Dim aPrinter As String
aPrinter = Application.ActivePrinter
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="EPSON LP-S0000"
Application.ActivePrinter = aPrinter
End Sub
こんなマクロをボタンに登録して使うほうが現実的でしょう。
(PrintOutメソッド時の引数 ActivePrinter にはポート番号不要)
Wordも詳しくないのであまりわからないですが、ボタン方式なら
Sub test2()
Dim aPrinter As String
aPrinter = ActivePrinter
ActivePrinter = "EPSON LP-S0000"
ActiveDocument.PrintOut
ActivePrinter = aPrinter
End Sub
こうかな。(WordのActivePrinter切替はポート番号不要みたい)
御礼が遅れましたことをお詫びします。
>ネットワーク環境での複数端末からの利用に対応させるなら、ちょっと面倒です。
これがEPSONではありませんが、ネットワーク上にあるプリンタです。
やはりマクロで対応させるしかありませんかね。
No.1
- 回答日時:
VBAで組むしかないでしょう。
ファイルの区別は拡張子で分けて
たとえば xls2 とか(ファイルの関連付けが必要ですが)
その拡張子をVBAに判断させて.....
というぐいあいに。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- プリンタ・スキャナー 佐川急便のプリンターで印刷用の送り状が印刷時に詰まる 2 2022/11/23 18:25
- プリンタ・スキャナー エプソンのプリンタEP-879AWを使っていますが印刷文字がぼやけます。 家電量販店で写真印刷がメイ 4 2022/03/26 23:20
- ノートパソコン Windows11homeを新しく購入し、初期設定をしています。 前のパソコンでは無線のFAX機や有 5 2023/04/18 19:50
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- プリンタ・スキャナー プリンタを無線化したい 7 2023/04/08 06:25
- PDF 突然PDFファイルが印刷できなくなった 1 2022/12/22 15:47
- プリンタ・スキャナー インクカートリッジからインクを取り出せるか 3 2022/11/17 10:32
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- プリンタ・スキャナー EPSON プリンターのインクについて 4 2022/11/26 22:33
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
ワードのマクロにおけるPrintOut
Word(ワード)
-
印刷マクロ【エクセル】エクセルからワードを印刷する
その他(Microsoft Office)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
-
4
エクセル ファイルごとのプリンタ指定印刷について
Excel(エクセル)
-
5
EXCEL VBAでプリンタの設定方法について
Excel(エクセル)
-
6
Wordの印刷設定をファイルごとに設定したいです
Word(ワード)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
wordで作った2ページをA3にま...
-
WORDで色をつけたところは印刷...
-
Excelで作ったポスターを幅一杯...
-
エクセルでの印刷:回転
-
太字でないのに太字になります
-
A4R、B5Rの「R」とは?
-
印刷が1枚のはずなのに2枚にわ...
-
プリンタの印刷履歴を削除した...
-
PDFファイルを印刷するとB4で印...
-
個別にステープルして印刷したい
-
印刷ができません
-
WordのA4サイズ文書を4倍(A4用...
-
エクセルでPCが変わると印刷範...
-
重いファイルが印刷できません
-
プリンターの印刷を途中で止める
-
A2が印刷できるプリンタに接続...
-
自作攻略本をつくりたいのです
-
エクセルでA3の大きさに資料...
-
Mac OS9.1非対応プリンタでプリ...
-
印刷を行うと同じものが延々と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
wordで作った2ページをA3にま...
-
WORDで色をつけたところは印刷...
-
エクセルでPCが変わると印刷範...
-
太字でないのに太字になります
-
A4R、B5Rの「R」とは?
-
エクセルでA3の大きさに資料...
-
印刷が1枚のはずなのに2枚にわ...
-
個別にステープルして印刷したい
-
プリンタのスプール設定について
-
エクセルでの印刷:回転
-
グーグルドキュメントの文字の...
-
プリンタの印刷履歴を削除した...
-
WordのA4サイズ文書を4倍(A4用...
-
wordの文章の文字が緑色になります
-
PDFファイルの印刷部数が必ず2...
-
エクセル画面を、b5ルーズリ...
-
EXCEL(エクセル)での用...
-
Canon LBP-1910の印刷でローカ...
-
Excelで作ったポスターを幅一杯...
-
印刷を行うと同じものが延々と...
おすすめ情報