Documentation Center

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