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 VBA】プリンタのプロパティダイアログの表示
Excel(エクセル)
-
エクセルVBAで手差しトレイを指定させたい。
Excel(エクセル)
-
-
4
エクセルの印刷ダイアログをSendkeysで操作したい。
PowerPoint(パワーポイント)
-
5
エクセルのマクロでプリンタを指定したいのですが
Visual Basic(VBA)
-
6
ExcelやWordの特定のファイルを印刷するときのみ、通常使うプリン
その他(Microsoft Office)
-
7
エクセルマクロでのプリンターを指定して印刷設定
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードやエクセルで印刷をデフ...
-
JW-CADで印刷すると線が太くなる
-
Excelの表を二段で印刷したい
-
PDFのプリントアウトが重す...
-
エクセルでB6サイズに印刷し...
-
ワード A4サイズで作成した...
-
エクセルシート A3にしてもA4...
-
バーコードのサイズを小さくす...
-
Photoshopで両面印刷はできます...
-
ソフト別に印刷設定を自動で変...
-
CMYK表示の出来るフリーソフト...
-
PDFでの印刷余白
-
左右反転・鏡像設定の印刷方法
-
Accessの印刷設定を白黒に固定...
-
縦書き便箋に印刷したい
-
ワードで文書A4サイズ2枚をA3...
-
Excel・Wordで印刷設定を保存す...
-
Google Earth の画面がプリント...
-
PDF書類をずらして印刷したい
-
プリンターで印刷すると、小さ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードやエクセルで印刷をデフ...
-
Excelの表を二段で印刷したい
-
エクセルシート A3にしてもA4...
-
JW-CADで印刷すると線が太くなる
-
エクセルでB6サイズに印刷し...
-
作成したPDFファイルを自動表示...
-
ソフト別に印刷設定を自動で変...
-
PDFのプリントアウトが重す...
-
パワーポイントの印刷が画面表...
-
PDF書類をずらして印刷したい
-
PDFファイルを作成すると四角い...
-
word印刷時に勝手に手差し印刷...
-
エクセルでブックごとにプリン...
-
PDFでの印刷余白
-
A3, A4サイズが混在したファイ...
-
PDFファイルを印刷するときにフ...
-
角2封筒の印刷方法
-
ワードで文書A4サイズ2枚をA3...
-
ワード A4サイズで作成した...
-
改ページプレビューで設定した...
おすすめ情報