Navigation:  Technical API Reference > Mailmerge > Create Mailing Labels > VB Code

 

      ' The interfaces we need

      Dim memo As WPDynamic.IWPMemo = Me.WpdllInt1.Memo

      Dim cursor As WPDynamic.IWPTextCursor = memo.TextCursor

 

      ' Create the mailing template

       memo.Clear(False, True)

       memo.CurrAttr.Clear()

       memo.CurrAttr.SetFontSize(10.0!)

       cursor.InputField("NAME", "Name", False)

       cursor.InputString(ChrW(13), 0)

       cursor.InputField("ADR1", "Adr1", False)

       cursor.InputString(ChrW(13), 0)

       cursor.InputField("ADR2", "Adr2", False)

       cursor.InputString(ChrW(13) & ChrW(13), 0)

       memo.CurrAttr.IncludeStyles(1)

       cursor.InputField("ZIP", "00000", False)

       cursor.InputString(" ", 0)

       cursor.InputField("CITY", "City", False)

 

      ' Simulate a mail merge - do a loop in this example

      Dim i As Integer

      For i = 1 To 30

           memo.MergeText("")

           memo.RTFDataAppendTo("LABELS", 1)

      Next

 

      ' Select the resulting text

       memo.RTFDataSelect("LABELS")

 

      ' Hide the field markers

       memo.SpecialTextAttr( _

               WPDynamic.SpecialTextSel.wpInsertpoints).Hidden = True

 

      ' Define the label properties

      Dim label As WPDynamic.IWPLabelDef = memo.LabelDef

       label.Caption = "WPCubed GmbH * St. Ingbert Str. 30 * 8151 Munich"

       label.ColumnCount = 2

       label.RowCount = 7

       label.Horizontal = 0.5!

       label.Vertical = 0.5!

 

      ' ... and activate it

       label.Active = True