<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type="text/xsl" href="https://communities.bentley.com/cfs-file/__key/system/syndication/rss.xsl" media="screen"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>Chad Meyerhofer's Activities</title><link>https://communities.bentley.com/members/bb40f672_2d00_17c7_2d00_48a7_2d00_bb9f_2d00_c2a5048b47dc</link><description>Chad Meyerhofer's recent activity</description><dc:language>en-US</dc:language><generator>Telligent Community 12</generator><item><title>Discussion Starter I</title><link>https://communities.bentley.com/achievements/21025ab1-febb-4fb4-a872-d32a921cb45c</link><pubDate>Wed, 19 Feb 2020 18:42:14 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:579f5458-b80e-45c5-af90-c20133c79a4c</guid><dc:creator /><description>Start a discussion in a forum that receives 5 replies.</description></item><item><title>Is it possible to print Multi-page PDF files using the batch processor ?</title><link>https://communities.bentley.com/products/microstation/microstation_printing/f/printing-and-plotting-forum/192652/is-it-possible-to-print-multi-page-pdf-files-using-the-batch-processor</link><pubDate>Tue, 18 Feb 2020 19:29:37 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:fceeff8b-a1cd-481f-867d-63a6d01cd086</guid><dc:creator>Chad Meyerhofer</dc:creator><description>&lt;p&gt;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.&amp;nbsp; I would like it to create a single PDF file that contains all models/sheets for each DGN.&amp;nbsp; Does anyone know what in need to add to the VBA to make it create a single PDF file?&lt;/p&gt;
&lt;p&gt;Sub PrintPDF_XXXX()&lt;br /&gt; Dim DirPath As String&lt;br /&gt; Dim FileName As String&lt;br /&gt; Dim FileBaseName As String&lt;br /&gt; Dim SaveFileName As String&lt;br /&gt; Dim ModelName As String&lt;br /&gt; &lt;br /&gt; CadInputQueue.SendCommand &amp;quot;MDL SILENTLOAD PLOTDLG&amp;quot;&lt;/p&gt;
&lt;p&gt;CadInputQueue.SendCommand &amp;quot;PRINT DRIVER AE_SUB_pdf(no view).pltcfg&amp;quot;&lt;/p&gt;
&lt;p&gt;DirPath = ActiveModelReference.DesignFile.Path&lt;br /&gt; FileName = ActiveModelReference.DesignFile.Name&lt;br /&gt; FileBaseName = Left(FileName, Len(FileName) - 4)&lt;br /&gt; ModelName = ActiveModelReference.Name&lt;br /&gt; SaveFileName = DirPath + &amp;quot;\&amp;quot; + FileBaseName + &amp;quot;-&amp;quot; + ModelName + &amp;quot;.pdf&amp;quot;&lt;br /&gt; &lt;br /&gt; CadInputQueue.SendCommand &amp;quot;PRINT EXECUTE &amp;quot; &amp;amp; SaveFileName&lt;br /&gt; &lt;br /&gt; CommandState.StartDefaultCommand&lt;br /&gt;End Sub&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;</description></item></channel></rss>