Lots of ways to get this done. Here is one that users coreconsole and a vbs file.
Create a text file called "BatchPrint.vbs" and put the following in it:
Dim fso, inputFile, line, fields, scriptFile, shell
Dim sourceFile, destinationFile, accoreConsolePath, tempScriptPath, scriptContent
Dim scriptDir, csvFilePath
' Initialize objects
Set fso = CreateObject("Scripting.FileSystemObject")
Set shell = CreateObject("WScript.Shell")
' Get the current directory of the VBScript file
scriptDir = fso.GetParentFolderName(WScript.ScriptFullName)
csvFilePath = fso.BuildPath(scriptDir, "Drawings.csv") ' CSV file in the same directory as the VBScript
' Check if the CSV file exists
If Not fso.FileExists(csvFilePath) Then
WScript.Echo "Error: Drawings.csv not found in the current directory: " & scriptDir
WScript.Quit
End If
' Open the CSV file
Set inputFile = fso.OpenTextFile(csvFilePath, 1) ' Read-only mode
' Read for accoreconsole.exe path and temporary .scr path
If Not inputFile.AtEndOfStream Then
line = inputFile.ReadLine 'skip columns line
line = inputFile.ReadLine
fields = Split(line, ",")
accoreConsolePath = fields(2) ' Third column: accoreconsole.exe path
tempScriptPath = fields(3) ' Fourth column: temporary .scr path
'WScript.Echo accoreConsolePath
' Validate paths
If Not fso.FileExists(accoreConsolePath) Then
WScript.Echo "Error: accoreconsole.exe not found at " & accoreConsolePath
WScript.Quit
End If
If Not fso.FolderExists(fso.GetParentFolderName(tempScriptPath)) Then
WScript.Echo "Error: Folder for temporary script does not exist: " & tempScriptPath
WScript.Quit
End If
Else
WScript.Echo "Error: CSV file is empty or missing required paths."
WScript.Quit
End If
' Loop through remaining lines
Do Until inputFile.AtEndOfStream
line = inputFile.ReadLine
fields = Split(line, ",")
sourceFile = fields(0)
'WScript.Echo sourceFile
destinationFile = fields(1)
' Generate the AutoCAD script content
scriptContent = "OPEN """ & sourceFile & """" & vbCrLf & _
"-PLOT" & vbCrLf & _
"Y" & vbCrLf & _
"Model" & vbCrLf & _
"DWG to PDF.pc3" & vbCrLf & _
"ARCH expand D (24.00 x 36.00 Inches)" & vbCrLf & _
"Inches" & vbCrLf & _
"Landscape" & vbCrLf & _
"NO" & vbCrLf & _
"EXTENTS" & vbCrLf & _
"FIT" & vbCrLf & _
"CENTER" & vbCrLf & _
"NO" & vbCrLf & _
"" & vbCrLf & _
"Yes" & vbCrLf & _
"" & vbCrLf & _
"""" & destinationFile & """" & vbCrLf & _
"NO" & vbCrLf & _
"YES" & vbCrLf & _
"CLOSE" & vbCrLf & _
"NO"
' Write the script to the specified temporary SCR file path
Set scriptFile = fso.CreateTextFile(tempScriptPath, True)
scriptFile.WriteLine scriptContent
scriptFile.Close
' Run accoreconsole.exe
'WScript.Echo """" & accoreConsolePath & """ /s """ & tempScriptPath & """"
shell.Run """" & accoreConsolePath & """ /s """ & tempScriptPath & """", 1, True
' Delete the temporary SCR
If fso.FileExists(tempScriptPath) Then fso.DeleteFile(tempScriptPath)
Loop
' Close file
inputFile.Close
' Done
WScript.Echo "Done"
Download the CVS file and put it in the same directory.

Change the location of your files and path to acccoreconsole. the temp path is just a location where the VBS script creates a temporary AutoCAD .scr file with the specifics to your file.
Once you have changed all your paths, close the CSV and then double click the vbs file.
CADnoob
