VBSでExcelファイルを印刷する際、場合によってはプリンタを変えて印刷したいのですが、プリンタの指定をどのようにコーディングすれば良いのか分かりません。
印刷時のソースは下記のとおりです。
Set Excel = CreateObject("Excel.Application")
Set objWkBk = Excel.Workbooks.Open("C:\Test.xls", , False)
Excel.ActiveWindow.SelectedSheets.PrintOut()
Excel.DisplayAlerts = False
Excel.quit()
objWkBk.close
Set objWkBk = Nothing
Set Excel = Nothing
上記コーディングに下記(1)~(4)を追加または、修正して試してみましたが、エラーとなってしまいます。
(1)Application.ActivePrinter = "\\NAS0013W\Kyocera LS-6700SKX2"
(2)Excel.ActivePrinter = "\\NAS0013W\Kyocera LS-6700SKX2"
(3)Excel.ActiveWindow.SelectedSheets.PrintOut("\\NAS0013W\Kyocera LS-6700SKX2")
(4)Excel.ActiveWindow.SelectedSheets.PrintOut(ActivePrinter = "\\NAS0013W\Kyocera LS-6700SKX2")
そもそも、vbsからはプリンタの指定はできないのでしょうか?
ご教授いただきたく、よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
プリンターを切り替えるには手作業でプリンターを変更します。
その後イミディエイトウィンドウで
?application.activeprinter + Enter
で PDFCreator on Ne00: みたいのが返ってきますので
これを指定します。
excel.activeprinter = "PDFCreator on Ne00:" のように。
または変更は印刷時に行うようにして
excel.ActiveWindow.SelectedSheets.PrintOut activeprinter:="PDFCreator"
とすると ポート指定部分は無くても機能するようですね。
回答ありがとうございました。
参考にさせていただきました。
最終的には、vbs から excelのマクロを呼び出し、
プリンタを指定して印刷することができました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) Excel VBA Backstageビューでの印刷 2 2022/06/03 16:56
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- ノートパソコン Windows11homeを新しく購入し、初期設定をしています。 前のパソコンでは無線のFAX機や有 5 2023/04/18 19:50
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- その他(プログラミング・Web制作) VBSでExcelファイル起動時、重複しても開くのを止めたい 1 2022/10/01 23:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBscriptでPDFファイルを直接印刷できるようにするためには?
Microsoft ASP
-
VBSでプリンターの用紙サイズを変更したい。
その他(プログラミング・Web制作)
-
出力するプリンタを指定したい。
Visual Basic(VBA)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
フォルダ内のエクセル文書をすべて印刷したいデス
Excel(エクセル)
-
6
VBScriptでエクセル印刷モード起動
その他(プログラミング・Web制作)
-
7
プロンプトでExcelのファイルを印刷したい
Windows Vista・XP
-
8
VBScript ファイルの関連付けについて
Windows Vista・XP
-
9
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PHPでPDFファイルの直接印刷
-
PDFファイルを印刷し終了するには
-
VBAで印刷の成功判定
-
印刷ダイアログを表示させない方法
-
VB2005から複合機を使い自動FAX...
-
プログラムからプリンタジョブ...
-
エクセルのVBAでプリンタを変更...
-
EXCELファイルの複数ダウンロー...
-
ActiveReportsを使って[印刷ダ...
-
webページの印刷制限について
-
印刷要求順番と印刷出力順番が...
-
VBSでExcelファイル印刷時のプ...
-
プリンタの印刷ジョブを削除し...
-
VBでファイルを指定して印刷
-
イベントプロシージャ 印刷が...
-
サーバーで作成したPDFを直接印...
-
印刷ダイアログを表示させたくない
-
A4の2枚をA3の1枚にする編集方法?
-
vbaでPDFファイルが印刷されない
-
VBからプリンタに出力する時に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
プリンターを指定して印刷するには
-
vbaでPDFファイルが印刷されない
-
VBAで印刷スプール終了の判定を...
-
PDFファイルを印刷し終了するには
-
VBからプリンタに出力する時に...
-
ACCESSで設定した帳票の用紙サ...
-
印刷ダイアログを表示させたくない
-
VBscriptでPDFファイルを直接印...
-
ActiveReportsを使って[印刷ダ...
-
VBAで印刷の成功判定
-
Accessフォームで全レコードを...
-
VB.NET+ActiveReports で印刷...
-
A4の2枚をA3の1枚にする編集方法?
-
Eclipseを使ってソースを印刷し...
-
EXCELファイルの複数ダウンロー...
-
VBAにて指定したセルをプルダウ...
-
VBでExcel印刷する時のプリンタ...
-
Javaから直接プリンターへ印刷...
おすすめ情報