![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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
VBScript ファイルの関連付けについて
Windows Vista・XP
-
5
プロンプトでExcelのファイルを印刷したい
Windows Vista・XP
-
6
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プリンターエラーの判定
-
フォームを印刷するには
-
B4で手差しトレイから印刷(V...
-
A4の2枚をA3の1枚にする編集方法?
-
JavaでPDF作成
-
VBAでエクセルからワードへの差...
-
vba 時間の引き算 例えば 15:00...
-
VB6で作成したアプリをパッケー...
-
htmlからcgiを自動的に起動させ...
-
WinSCPで画像のように puttyを...
-
ミキサーの情報の取得方法を教えて
-
VBSで起動したアプリが前面表示...
-
Excel-VBAでDSOFile.dll使える?
-
C++初心者です。 debug asserti...
-
DLLを作成してVBAから使用する...
-
「読み込み違反」が起きたとき...
-
Windows PowerShellでC言語を実...
-
androidで.exeを実行できますか?
-
[VB.net] ExcelへのQRコード出...
-
VB6で作成したアプリを配布する...
マンスリーランキングこのカテゴリの人気マンスリー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から直接プリンターへ印刷...
おすすめ情報