Skip to content

Instantly share code, notes, and snippets.

@tomoyamkung

tomoyamkung/XlsPrint.vbs

Created May 1, 2013 00:39
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tomoyamkung/5492974 to your computer and use it in GitHub Desktop.
Save tomoyamkung/5492974 to your computer and use it in GitHub Desktop.
Download ZIP
[vbs]Excel を印刷するスクリプト
Raw
XlsPrint.vbs
Option Explicit
Dim obj
Dim objWkBk
Set obj = CreateObject("Excel.Application")
Set objWkBk = obj.Workbooks.Open(WScript.Arguments(0))
obj.ActiveWindow.SelectedSheets.PrintOut()
objWkBk.Save
objWkBk.Close
Set objWkBk = Nothing
obj.Quit
Set obj = Nothing
@tomoyamkung
Copy link
Author

スクリプトの実行はこんな感じ。

cd $PROJECT_ROOT
cmd /c .\scripts\XlsPrint.VBS EXCEL_FILE_PATH

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment