EXCEL VBAのプリンタの設定方法について質問があります。
Dim oApp As Object
Dim WFM As Strin
WFM = "\\Cl111\フォルダ\ファイル\" &Range("C3").Value & ".doc"
Set oApp = CreateObject("Word.Application") ’ワード起動
oApp.Visible = True
oApp.Documents.Open WFM ’文書を開く
Application.ActivePrinter = "AAA on Ne00:" ’プリンタ設定
oApp.activedocument.PrintOut Copies:=1, Background:=False ’印刷
oApp.Quit SaveChanges:=False ’ワード終了
Set oApp = Nothing
このようなコードで、(1)ワードを開き、(2)プリンタを設定し、(3)印刷をする、という作業をしたいのですが、
Application.ActivePrinter = "AAA on Ne00:"
ではプリンタの設定が変わらず、通常使うプリンターで印刷がされてしまいます。
ワードを開いて印刷することで何か特殊なコードが必要なのではないかと思うのですが、調べても該当するものが出てきませんでした。
どうぞよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
WordのActivePrinterを設定しなければならないのですよね?
OApp.ActivePrinter = "AAA on Ne00:"
ではないですか?
No.2
- 回答日時:
こんにちは、
Excelからのようですが、
>Application.ActivePrinter = "AAA on Ne00:"
↓
oApp.ActivePrinter = "AAA on Ne00:"
としても、"AAA on Ne00:" のポートの 00 は、キメウチで出きるのでしょうか。
Excel側は、ポート名なくてもできますが、Wordにはそのようではないようですので、
Win32 APIの
Declare Function EnumPrinters を使用するのか、
ポート名を入れたものを、ループで、ポートの数字を加えて行って、err =0 で、通ったら、実行するという方法でよいのではないでしょうか。
"AAA on Ne00:" のポートの00 をキメウチでやってみましたが
そのままできました。ありがとうございました。
またよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- プリンタ・スキャナー 2台のプリンターでそれぞれ異なる様式の帳票を印刷したい。 2 2022/09/06 10:07
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Visual Basic(VBA) エクセル VBA メール本文に指定セルに記載されているURLをリンクとして記載する方法 8 2022/08/08 07:50
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- PowerPoint(パワーポイント) パワーポイントモバイル 印刷時に詳細設定をしたい 2 2022/05/16 16:34
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
エクセルVBAでプリンタプロパティを操作したい
Visual Basic(VBA)
-
ExcelやWordの特定のファイルを印刷するときのみ、通常使うプリン
その他(Microsoft Office)
-
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
-
4
マクロで印刷時のポートについて
Access(アクセス)
-
5
UserForm1.Showでエラーになります。
工学
-
6
エクセルVBAで手差しトレイを指定させたい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードやエクセルで印刷をデフ...
-
エクセルシート A3にしてもA4...
-
Excelの表を二段で印刷したい
-
JW-CADで印刷すると線が太くなる
-
エクセルでブックごとにプリン...
-
作成したPDFファイルを自動表示...
-
PDFのプリントアウトが重す...
-
【Excel VBA】プリンタのプロパ...
-
ソフト別に印刷設定を自動で変...
-
PDFでの印刷余白
-
A3, A4サイズが混在したファイ...
-
パワーポイントの印刷が画面表...
-
word印刷時に勝手に手差し印刷...
-
角2封筒の印刷方法
-
Excel VBAを使って給紙方法を...
-
ワードで文書A4サイズ2枚をA3...
-
改ページプレビューで設定した...
-
イラストレーターで印刷範囲の...
-
PDF書類をずらして印刷したい
-
B5をB4に並べて印刷したい!!
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードやエクセルで印刷をデフ...
-
エクセルシート A3にしてもA4...
-
Excelの表を二段で印刷したい
-
JW-CADで印刷すると線が太くなる
-
エクセルでB6サイズに印刷し...
-
作成したPDFファイルを自動表示...
-
ソフト別に印刷設定を自動で変...
-
PDFのプリントアウトが重す...
-
PDFファイルを作成すると四角い...
-
パワーポイントの印刷が画面表...
-
角2封筒の印刷方法
-
word印刷時に勝手に手差し印刷...
-
A3, A4サイズが混在したファイ...
-
PDFでの印刷余白
-
PDF書類をずらして印刷したい
-
EXCEL印刷設定で[両面印刷]が表...
-
改ページプレビューで設定した...
-
PDFファイルを印刷するときにフ...
-
エクセルでブックごとにプリン...
-
Wordでの印刷で、白紙が省略さ...
おすすめ情報