SubString.SerializeEvery Property

'Declare a BarTender application variable

Dim btApp As BarTender.Application

'Declare a BarTender document variable

Dim btFormat As BarTender.Format

'Declare a BarTender data source variable

Dim btSubString As BarTender.SubString

'Declare a BarTender print setup variable

Dim btPrintSetup As BarTender.PrintSetup

'Create a new instance of BarTender

btApp = New BarTender.Application

'Set the BarTender application visible

btApp.Visible = True

'Open a BarTender document

btFormat = btApp.Formats.Open("c:\Format1.btw", False, "")

'Select the data source

btSubString = btFormat.NamedSubStrings.GetSubString(1)

'Set to serialize every two items or records

btSubString.SerializeEvery = 2

'Select the print setup variable property

btPrintSetup = btFormat.PrintSetup

'Set the number of serialized items

btPrintSetup.NumberSerializedLabels = 10

'Print the document

btFormat.PrintOut(False, False)

'End the BarTender process

btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges)

// Declare a BarTender application variable

BarTender.Application btApp;

// Declare a BarTender document variable

BarTender.Format btFormat;

// Declare a BarTender data source variable

BarTender.SubString btSubString;

// Declare a BarTender print setup variable

BarTender.PrintSetup btPrintSetup;

// Create a new instance of BarTender

btApp = new BarTender.Application();

// Set the BarTender application visible

btApp.Visible = true;

// Open a BarTender document

btFormat = btApp.Formats.Open("c:\\Format1.btw", false, "");

// Select the data source

btSubString = btFormat.NamedSubStrings.GetSubString(1);

// Set to serialize every two items or records

btSubString.SerializeEvery = 2;

// Select the print setup variable property

btPrintSetup = btFormat.PrintSetup;

// Set the number of serialized items

btPrintSetup.NumberSerializedLabels = 10;

// Print the document

btFormat.PrintOut(false, false);

// End the BarTender process

btApp.Quit(BarTender.BtSaveOptions.btDoNotSaveChanges);