PassoloApp.FreeExportLicenses
The SDL Passolo Team Edition returns the number of free license slots, that can be used to create licensed translation bundles. All other editions return 0.
Syntax
Expression.FreeExportLicenses as Long
Expression Required. Object of type PassoloApp
Example
Sub main
' Write a licensed translation bunde that contains
' the currently selected translation list
If PSL.FreeExportLicenses = 0 Then
MsgBox "No free export licenses."
Exit Sub
End If
Dim prj As PslProject
Set prj = PSL.ActiveProject
If prj Is Nothing Then Exit Sub
Dim trn As PslTransList
Set trn = PSL.ActiveTransList
If trn Is Nothing Then Exit Sub
' Define the translation bundle
Dim bundle As PslTransBundle
Set bundle = prj.PrepareTransBundle
bundle.AddTransList trn
bundle.License("By automation")
prj.ExportTransBundle bundle, "c:\test.tba"
End Sub