Print and Close application

[strosfan99]

I am trying to open .plt files and print them with Plotviewer. So far I am able to open these .plt files with plotviewer. My next step is to print and close each file.

any suggestions?

the strOption = " /print" doesn't seem to work.

Sub printplt2()

Dim sSourceDir As String
Dim sNextFile As String

sSourceDir = "C:\pdmsuser\"

sNextFile = Dir$(sSourceDir & "*.plt")

While sNextFile <> ""
strProg = """C:\AVEVA\PDMS11.6.SP5\plot\PlotViewer.exe"""
strFile = sSourceDir & sNextFile
strOption = " /print"
Shell strProg & " " & strFile & strOption
sNextFile = Dir$
Wend

Exit Sub

End Sub