I am using this VBA In MicroStation CONNECT Edition Update 12 to batch print Dgn files that contain a both model and a sheet and it works well but creates a separate PDF file for each Model/Sheet. I would like it to create a single PDF file that contains all models/sheets for each DGN. Does anyone know what in need to add to the VBA to make it create a single PDF file?
Sub PrintPDF_XXXX() Dim DirPath As String Dim FileName As String Dim FileBaseName As String Dim SaveFileName As String Dim ModelName As String CadInputQueue.SendCommand "MDL SILENTLOAD PLOTDLG"
CadInputQueue.SendCommand "PRINT DRIVER AE_SUB_pdf(no view).pltcfg"
DirPath = ActiveModelReference.DesignFile.Path FileName = ActiveModelReference.DesignFile.Name FileBaseName = Left(FileName, Len(FileName) - 4) ModelName = ActiveModelReference.Name SaveFileName = DirPath + "\" + FileBaseName + "-" + ModelName + ".pdf" CadInputQueue.SendCommand "PRINT EXECUTE " & SaveFileName CommandState.StartDefaultCommandEnd Sub
Chad,
From Microstation's help on Print organizer:
printorganizer printdestination <your path and file name here>
Tom F