No.1ベストアンサー
- 回答日時:
こんばんは。
残念ながら、起動オプションには印刷が見当たりませんでした。
http://support.microsoft.com/default.aspx?scid=k …
それで、下のようなものを作ってみました。
'--------------------------------------------------
' Usage : XlsPrint.VBS file
Option Explicit
Dim fso
Dim wShell
Dim Path
Dim File
Dim Shell
Dim I
Set fso=CreateObject("Scripting.FileSystemObject")
Set wShell=CreateObject("WScript.Shell")
Path=wShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\excel.exe\")
Path=Replace(Path,"""","")
Path=wShell.ExpandEnvironmentStrings(Path)
RegWrite "HKCR\*\shell\XlsPrint\command\",""""&Path&""""
RegWrite "HKCR\*\shell\XlsPrint\extended",""
RegWrite "HKCR\*\shell\XlsPrint\ddeexec\","[open(""%1"")][print()][quit()]"
RegWrite "HKCR\*\shell\XlsPrint\ddeexec\application\","Excel"
RegWrite "HKCR\*\shell\XlsPrint\ddeexec\topic\","system"
Set Shell=CreateObject("Shell.Application")
For I=0 To WScript.Arguments.Count()-1
Set File=fso.GetFile(WScript.Arguments.Item(I))
Shell.ShellExecute File.Path,0,,"XlsPrint"
WScript.Sleep 1000
Next
WScript.Quit
Sub RegWrite(Key,Value)
If Not RegRead(Key)=Value Then wShell.RegWrite Key,Value,"REG_SZ"
End Sub
Function RegRead(Key)
On Error Resume Next
RegRead=vbNullChar
RegRead=wShell.RegRead(Key)
End Function
'--------------------------------------------------
'---- から始まって '---- で終わる行までを XlsPrint.VBS として保存して、オプションにファイル名を指定して実行してみて下さい。
デフォルトのプリンターに出力される、、、はずです。
回答ありがとうございます。
VBSを使用すればできるのですね。
このコードを参考にスクリプトを作成しました。
ありがとうございました。
No.2
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Windows 10 ネットワークプリンターにファイルを直接送る方法・コマンドないですか?(´・ω・`) 3 2023/03/13 23:15
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- PDF 突然PDFファイルが印刷できなくなった 1 2022/12/22 15:47
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- 会計ソフト・業務用ソフト 一太郎で封筒の宛名印刷したいです。 1 2023/07/20 10:14
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- UNIX・Linux Ubuntu22.04、nanoエディタの使い方について 2 2022/10/24 19:50
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
複数のExcelをバッチファイルのように印刷
その他(Microsoft Office)
-
フォルダ内のエクセル文書をすべて印刷したいデス
Excel(エクセル)
-
Excel のコマンドラインスイッチ(印刷)
Excel(エクセル)
-
-
4
コマンドプロンプトからEXCELファイルを開き、印刷後、閉じるを一括に行いたい
Excel(エクセル)
-
5
VBSでExcelファイル印刷時のプリンタ指定
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【pdfファイル】縁なし印刷でき...
-
A4の用紙に写真をたくさん並べ...
-
エクセルのサイズ変更について
-
エクセルで、分かれた行を印刷...
-
<Word>原稿用紙のマス目...
-
画像を、思い通りのサイズで印...
-
印刷プレビューで表示されるの...
-
word背景が縮小されてしまいます!
-
印刷すると右端が印刷されない
-
ACCESSのレポートにWORDで作っ...
-
エクセルで印刷したときに右上...
-
ExcelでA4の表をA3・4枚のサイ...
-
ワードで紙いっぱいに印刷する...
-
プリントアウトのとき不要な広...
-
word コメント等の吹き出しが...
-
印刷部数が毎回10部になって...
-
Excelで作った表を印刷時のみ、...
-
写真を元のサイズで印刷する
-
エクセルVBA モジュールの印刷...
-
プリンターで複数ページを小冊...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
A4の用紙に写真をたくさん並べ...
-
【pdfファイル】縁なし印刷でき...
-
エクセルのサイズ変更について
-
エクセルで、分かれた行を印刷...
-
画像を、思い通りのサイズで印...
-
A4用紙に、はがきの大きさで4...
-
ExcelでA4の表をA3・4枚のサイ...
-
ExcelシートをA4用紙に4分割に...
-
ACCESSのレポートにWORDで作っ...
-
プリンターで複数ページを小冊...
-
エクセルで印刷したときに右上...
-
Googleマップを印刷しようとす...
-
印刷部数が毎回10部になって...
-
いつも「現在のページ」で印刷...
-
スキャナーで取り込んで印刷し...
-
PDF印刷 ページ全体が印刷でき...
-
word コメント等の吹き出しが...
-
A3で送られた表をA4に縮小して...
-
エクセルで作成したバーコード...
-
google マップを画面全体に表示...
おすすめ情報