VBScript で PowerPoint ファイルを自動印刷する方法。

こんな感じでどうでしょう。上記URLは参考まで。

-------------------------------------

set args = WScript.Arguments

If args.length < 1 Then

WScript.echo ”Usage: cscript printppt <dir contains .PPT files>”

Else

pptdir = args(0)

set ppt = WScript.CreateObject(”PowerPoint.Application”)

ppt.Visible = True

Set fso = WScript.CreateObject(”Scripting.FileSystemObject”)

Set folder = fso.GetFolder(pptdir) ’ c:￥temp￥*.doc doesn’t work

For Each file In folder.Files

pptfile = file.path ’ file.name

If StrComp(Right(pptfile, 3), ”ppt”, 1) = 0 Then

printpptfile pptfile

End If

Next

ppt.quit

set ppt = Nothing

End If

’ ==================================================

Sub printpptfile(pptfile)

ppt.Presentations.Open pptfile, true

’ passed positionally

ppt.ActivePresentation.PrintOut

WScript.Sleep(10000) ’ change to a bigger value if your machine is slow

ppt.ActiveWindow.Close

End Sub

　URLはダミーです。

　PowerPointは/pオプションでコマンドプロンプトから印刷できることを利用します。

例)

Set wShell=CreateObject(”WScript.Shell”)

For Each arg In WScript.Arguments

wShell.Run ”POWERPNT.EXE /p ””” & arg & ””””,Show,True

Next

WScript.Quit

>・ウィンドウを非表示にする方法

なぜか非表示にすると動作しませんので、最小化で許してください。

>・プリント出力をファイル名をプログラムが与えて保存する方法

printdoc.vbs と同じ仕様に戻しました。

BUG:

なぜかバックグラウンド印刷をoffにする機能が見当たりません。

印刷にSleep(10000)=10秒より多くの時間を費やす場合は保証できません。

---------------------------------

set args = WScript.Arguments

If args.length < 1 Then

WScript.echo ”Usage: cscript printppt <dir contains .PPT files>”

Else

pptdir = args(0)

set ppt = WScript.CreateObject(”PowerPoint.Application”)

ppt.Visible = True

ppt.WindowState = 2 ’ ppWindowMinimized

Set fso = WScript.CreateObject(”Scripting.FileSystemObject”)

Set folder = fso.GetFolder(pptdir) ’ c:￥temp￥*.doc doesn’t work

For Each file In folder.Files

pptfile = file.path ’ file.name

If StrComp(Right(pptfile, 3), ”ppt”, 1) = 0 Then

prnfile = getBaseFilename(pptfile) & ”.ps”

printpptfile pptfile, prnfile

End If

Next

ppt.quit

set ppt = Nothing

End If

’ ==================================================

Function getBaseFilename(filename)

pos = InStrRev(filename, ”.”, -1, 1)

getBaseFileName = Left(filename, pos-1)

End Function

’ ==================================================

Sub printpptfile(pptfile, prnfile)

ppt.Presentations.Open pptfile, true

’ passed positionally

ppt.ActivePresentation.PrintOut , , prnfile

WScript.Sleep(10000) ’ change to a bigger value if your machine is slow

ppt.ActiveWindow.Close

End Sub