I have been using a macro to generate simultaneous PDF and DWG exports:

nFileName = Left(swDraw.GetPathName, InStrRev(swDraw.GetPathName, "\")) & sFileName & "-" & "Rev" & Revision If FileSave = True Then 'Save as DWG (replace DWG with DXF in following line in case you want to save as DXF) swDraw.SaveAs3 nFileName & ".DWG", 0, 0 'Save as PDF` swDraw.SaveAs3 nFileName & ".PDF", 0, 0 ElseIf FileSave