Sub ExportToWinLase()
    ' Recorded 5/13/2011
    ' Saves file as .plt
    Dim savetopath As String
    Dim expopt As StructExportOptions
    'Dim yn As String
        
    Set expopt = CreateStructExportOptions
    expopt.UseColorProfile = False
    
    Dim expflt As ExportFilter
 
    Set expflt = ActiveDocument.ExportEx("c:\test.plt", cdrHPGL, cdrAllPages, expopt)
    expflt.ShowDialog
    expflt.Finish
    
End Sub