Saving Pdf and Csv reports without prompting the user

OPERATOR =COMMENT/INPUT,NO,FULL SCREEN=NO,
Please enter Operator Number/Name
JOB =COMMENT/INPUT,NO,FULL SCREEN=NO,
Please enter JOB Number
SEQUENCE =COMMENT/INPUT,NO,FULL SCREEN=NO,
Please enter Part Sequence (1,2,3, etc.)
ASSIGN/PART_NUMBER="Insert_PART_NUMBER_Here"
ASSIGN/JOB_NUMBER=JOB.INPUT
ASSIGN/SAMPLE_NUMBER=SEQUENCE.INPUT
ASSIGN/OUTPUT_FILENAME= "THIS NAMES PDF FILE"

...

CS1 =SCRIPT/FILENAME= S:\0 - CMM SUBROUTINES AND SCRIPTS\PRINTPDFREPORT.BAS
FUNCTION/Main,SHOW=YES,,
STARTSCRIPT/
ENDSCRIPT/

Sub Main

Dim App As Object
Set App = CreateObject("Pcdlrn.Application")
Dim PartProg As Object
Set PartProg = App.ActivePartProgram
Dim RepWin As Object
Set RepWin = PartProg.ReportWindow
Dim EditWin As Object
Set EditWin = PartProg.EditWindow
Dim MyFSO As FileSystemObject
Set MyFSO = CreateObject("Scripting.FileSystemObject")

Dim rootDirectory As String
rootDirectory = "C:\CMM Inspection Results"

'  Get variables From PCDMIS
Dim partNumber As String
partNumber = PartProg.GetVariableValue ("PART_NUMBER").StringValue
Dim lotNumber As String
Set lotNumber = PartProg.GetVariableValue ("JOB_NUMBER").StringValue
Dim sampleNumber As String
Set sampleNumber = PartProg.GetVariableValue ("SAMPLE_NUMBER").StringValue
Dim outputFn As String
Set outputFn = PartProg.GetVariableValue ("OUTPUT_FILENAME").StringValue

'  If the variables are empty, pop up a message box And don't Do anything
If partNumber = vbNullString Then
  MsgBox "PART_NUMBER variable is empty.  This script is not going to do anything."
  GoTo endOfScript
End If
If lotNumber = vbNullString Then
  MsgBox "JOB_NUMBER variable is empty.  This script is not going to do anything."
  GoTo endOfScript
End If
If sampleNumber = vbNullString Then
  MsgBox "SAMPLE_NUMBER variable is empty.  This script is not going to do anything."
  GoTo endOfScript
End If
If outputFn = vbNullString Then
  MsgBox "OUTPUT_FILENAME variable is empty.  This script is not going to do anything."
  GoTo endOfScript
End If

' Create filepaths For all possible scenarios
Dim baseName As String
baseName = outputFn & " - " & lotNumber & " - " & sampleNumber
Dim desiredPdfPath As String
desiredPdfPath = rootDirectory & "\" & partNumber & "\" & lotNumber & "\" & baseName & ".pdf"
Dim directoryPath As String
Set directoryPath = MyFSO.GetParentFolderName(desiredPdfPath)

' Check If destination folder exists, If Not make it.
FolderCreate(directoryPath)

'  Determines Filename, checks If desired filename exists And appends characters To it If it already exists
Dim actualPdfPath As String
If Not MyFSO.FileExists(desiredPdfPath) Then
  actualPdfPath = desiredPdfPath
Else
  Dim I As Integer
  Dim CharString As String
  CharString = "abcdefghijklmnopqrstuvwxyz"
    
  For I = 1 To 26
    actualPdfPath = directoryPath & "\" & baseName & Mid(CharString, I, 1) & ".pdf"
    If Not MyFSO.FileExists(actualPdfPath) Then
        Exit For
    End If
  Next    
End If

' MsgBox "About to Print New" & CHR(10) & actualPdfPath

' Sets Print options, namely Print To pdf (actualPdfPath)
EditWin.ReportMode
EditWin.SetPrintOptionsEx PCD_FILE, DMIS_OFF, PCD_NEWFILE, 0, actualPdfPath , PCD_PDF, False
RepWin.PrintReport

'  Apparently the above sets the printer To automatically Print at the End of the run, which duplicates the above Print commands, so this turns printing back off
EditWin.SetPrintOptionsEx PCD_OFF, DMIS_OFF, PCD_NEWFILE, 0, desiredPdfPath, PCD_PDF, False

If MyFSO.FileExists("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe") Then
  shell("C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe" & " " & """" & actualPdfPath & """")
Else
  If MyFSO.FileExists("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe") Then
    shell("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" & " " & """" & actualPdfPath & """")
  End If
End If

'  End of Script Label For GoTo's
endOfScript:
End Sub


Function FolderCreate(ByVal path As String) As Boolean
  Dim MyFSO As FileSystemObject
  Set MyFSO = CreateObject("Scripting.FileSystemObject")
  Dim parentPath As String
  Set parentPath = MyFSO.GetParentFolderName(path)

  If Not MyFSO.FolderExists(path) Then
    parentPath = MyFSO.getParentFolderName(path)
    If Not MyFSO.FolderExists(parentPath) Then
      FolderCreate(parentPath)
    End If  
    mkdir path  
  End If
End Function