equal
deleted
inserted
replaced
|
1 Dim printer |
1 Dim filein |
2 Dim filein |
2 Dim fileout |
3 Dim fileout |
3 If WScript.Arguments.Count <> 2 then |
4 If WScript.Arguments.Count <> 3 then |
4 WScript.quit |
5 WScript.quit |
5 End If |
6 End If |
6 filein = WScript.Arguments.item(0) |
7 printer = WScript.Arguments.item(0) |
7 fileout = WScript.Arguments.item(1) |
8 filein = WScript.Arguments.item(1) |
|
9 fileout = WScript.Arguments.item(2) |
8 |
10 |
9 Dim pptApp |
11 Dim pptApp |
10 Dim pptPres |
12 Dim pptPres |
11 Set pptApp = Wscript.CreateObject("PowerPoint.Application") |
13 Set pptApp = Wscript.CreateObject("PowerPoint.Application") |
12 pptApp.Visible = True |
14 pptApp.Visible = True |
17 .NumberOfCopies = 1 |
19 .NumberOfCopies = 1 |
18 .PrintHiddenSlides = msoTrue |
20 .PrintHiddenSlides = msoTrue |
19 .PrintColorType = ppPrintColor |
21 .PrintColorType = ppPrintColor |
20 .FitToPage = msoFalse |
22 .FitToPage = msoFalse |
21 .FrameSlides = msoFalse |
23 .FrameSlides = msoFalse |
22 .ActivePrinter = "Generic PostScript Writer" |
24 .ActivePrinter = printer |
23 .PrintInBackground = False |
25 .PrintInBackground = False |
24 End With |
26 End With |
25 pptPres.PrintOut , , fileout |
27 pptPres.PrintOut , , fileout |
26 |
28 |
27 Dim i |
29 Dim i |