diff -r 8b90d57759c9 -r 105778ace30a tex/ppt_printout_ps.vbs
--- a/tex/ppt_printout_ps.vbs	Mon Sep 13 03:54:21 2010 +0900
+++ b/tex/ppt_printout_ps.vbs	Sun Sep 19 05:55:48 2010 +0900
@@ -1,10 +1,12 @@
+Dim printer
 Dim filein
 Dim fileout
-If WScript.Arguments.Count <> 2 then
+If WScript.Arguments.Count <> 3 then
    WScript.quit
 End If
-filein = WScript.Arguments.item(0)
-fileout = WScript.Arguments.item(1)
+printer = WScript.Arguments.item(0)
+filein = WScript.Arguments.item(1)
+fileout = WScript.Arguments.item(2)
 
 Dim pptApp
 Dim pptPres
@@ -19,7 +21,7 @@
  .PrintColorType = ppPrintColor
  .FitToPage = msoFalse
  .FrameSlides = msoFalse
- .ActivePrinter = "Generic PostScript Writer"
+ .ActivePrinter = printer
  .PrintInBackground = False 
 End With
 pptPres.PrintOut , , fileout