1.1 --- a/tex/ppt_printout_ps.vbs	Mon Sep 13 03:54:21 2010 +0900
     1.2 +++ b/tex/ppt_printout_ps.vbs	Sun Sep 19 05:55:48 2010 +0900
     1.3 @@ -1,10 +1,12 @@
     1.4 +Dim printer
     1.5  Dim filein
     1.6  Dim fileout
     1.7 -If WScript.Arguments.Count <> 2 then
     1.8 +If WScript.Arguments.Count <> 3 then
     1.9     WScript.quit
    1.10  End If
    1.11 -filein = WScript.Arguments.item(0)
    1.12 -fileout = WScript.Arguments.item(1)
    1.13 +printer = WScript.Arguments.item(0)
    1.14 +filein = WScript.Arguments.item(1)
    1.15 +fileout = WScript.Arguments.item(2)
    1.16  
    1.17  Dim pptApp
    1.18  Dim pptPres
    1.19 @@ -19,7 +21,7 @@
    1.20   .PrintColorType = ppPrintColor
    1.21   .FitToPage = msoFalse
    1.22   .FrameSlides = msoFalse
    1.23 - .ActivePrinter = "Generic PostScript Writer"
    1.24 + .ActivePrinter = printer
    1.25   .PrintInBackground = False 
    1.26  End With
    1.27  pptPres.PrintOut , , fileout