Shingo@0: Dim printer
Shingo@0: Dim filein
Shingo@0: Dim fileout
Shingo@0: If WScript.Arguments.Count <> 3 then
Shingo@0:    WScript.quit
Shingo@0: End If
Shingo@0: printer = WScript.Arguments.item(0)
Shingo@0: filein = WScript.Arguments.item(1)
Shingo@0: fileout = WScript.Arguments.item(2)
Shingo@0: 
Shingo@0: Dim pptApp
Shingo@0: Dim pptPres
Shingo@0: Set pptApp = Wscript.CreateObject("PowerPoint.Application")
Shingo@0: pptApp.Visible = True
Shingo@0: Set pptPres = pptApp.Presentations.Open(filein)
Shingo@0: 
Shingo@0: With pptPres.PrintOptions
Shingo@0:  .RangeType = ppPrintAll
Shingo@0:  .NumberOfCopies = 1
Shingo@0:  .PrintHiddenSlides = msoTrue
Shingo@0:  .PrintColorType = ppPrintColor
Shingo@0:  .FitToPage = msoFalse
Shingo@0:  .FrameSlides = msoFalse
Shingo@0:  .ActivePrinter = printer
Shingo@0:  .PrintInBackground = False 
Shingo@0: End With
Shingo@0: pptPres.PrintOut , , fileout
Shingo@0: 
Shingo@0: Dim i
Shingo@0: Dim note
Shingo@0: For i = 1 To pptPres.Slides.Count
Shingo@0:   Wscript.StdErr.Write "Processing slide " & i & "... "
Shingo@0:   note = pptPres.Slides(i).NotesPage.Shapes(2).TextFrame.TextRange
Shingo@0:   WScript.StdOut.WriteLine note
Shingo@0:   WScript.StdOut.WriteLine Chr(12)
Shingo@0:   If InStr(note, "@file=") > 0 Then
Shingo@0:     pptPres.Slides(i).Export filein & ".tmp_slide" & i & ".png", "PNG"
Shingo@0:   End If
Shingo@0:   Wscript.StdErr.WriteLine "done"
Shingo@0: Next
Shingo@0: 
Shingo@0: pptPres.Close
Shingo@0: