Syntax |
BOOL = CS.PrintLabel Ex (sHoldingCode, sSpine, sCall1, sAuthor1, sTitle1, sCall2, sAuthor2, sTitle2, nCopies, sConstant1, sNumbers1, sConstant2, sNumbers2) |
Parameters |
- For sHoldingCode, enter the holding library code used to print the label, enclosed in quotation marks (determines the input stamps for the label).
- Enter the parameter sSpine to supply the text to print on the spine label.
- Enter the parameter sCall1 to supply the call number to print on the pocket label.
- Enter the parameter sAuthor1 to supply the author to print on the pocket label.
- Enter the parameter sTitle1 to supply the title to print on the pocket label.
- Enter the parameter sCall2 to supply the call number to print on the second pocket label.
- Enter the parameter sAuthor2 to supply the author to print on the second pocket label.
- Enter the parameter sTitle2 to supply the title to print on the second pocket label.
- For nCopies, enter the number of copies of the label to print (1 to 999). Default: 1 copy.
- For sConstant1, enter text to print on the label to identify multiple copies or parts, enclosed in quotation marks. Use letters, numbers, and punctuation marks.
- For sNumbers1, enter numbers to appear on the label with print constant 1, enclosed in quotation marks. Use only numbers, commas, hyphens, and quotation marks.
- For sConstant2, enter additional text to print on the label, enclosed in quotation marks. Use letters, numbers, and punctuation marks.
- For sNumbers2, enter numbers to appear on the label with print constant 2, enclosed in quotation marks. Use only numbers, commas, hyphens, and quotation marks.
|
Example |
Sub Main()
Dim CS As Object
Dim sSpine as String
Dim sCallNumber1 as String
Dim sAuthor1 as String
Dim sTitle1 as String
Dim sCallNumber2 as String
Dim sAuthor2 as String
Dim sTitle2 as String
Set CS = GetObject(,“Connex.Client”)
If CS.IsOnline = False Then
CS.Logon ““, ““, ““
End If
CS.Search “WC”, “gon,wi,th,w”
CS.GetLabelSpine “ZMYA”, sSpine
CS.GetLabelCallNumber “ZMYA”, sCallNumber1
CS.GetLabelAuthor(sAuthor1)
CS.GetLabelTitle(sTitle1)
sCallNumber2 = sCallNumber1
sAuthor2 = sAuthor1
sTitle2 = sTitle1
‘Edit label fields as required here
batchStarted = CS.StartLabelBatch
If batchStarted = True Then
CS.PrintLabelEx “ZMYA”, sSpine, sCallNumber1, sAuthor1, sTitle1,
sCallNumber2, sAuthor2, sTitle2, 2, “Part”, “1,2”, “Copy”, “1,2”
CS.EndLabelBatch
End If
End Sub
|
What this example does |
- Logs on to Connexion if not already logged on, using the default authorization and password you selected in Tools > Options > Authorizations tab.
- Searches WorldCat for record number 1.
- Starts a label batch print and prints two copies of labels for record number 1 for holding library code ZMYA, based on spine, call number, author, and title text you edited, with the following print constants:
- Part 1 Copy 1
- Part 1 Copy 2
- Part 2 Copy 1
- Part 2 Copy 2
|