Print Barcode in Column Format

Code:

;; COMPANY NAME        :
;; PRODUCT TYPE        : Print Barcode in Colunn wise 4 Col * 6 Rows
;; TALLY VERSION    : Tally.ERP9 Rel 4.9
;; TALLY SR.NO.        : 
;; CREATED BY        : 
;; CREATED ON        : 
;; UPDATED BY        :
;; UPDATED ON        :
;;============================================================
;;Sri Ganeshji    : Sri Balaji    : Sri Durgaji    : Sri Pitreshwarji
;;================================================================

[#Form: Purchase Color] ;; Add Print in purchase
    Add    : Print  : VT LabelPrint
    Add    : Button : VT LabelPrint

[Button : VT LabelPrint]
    Action    :print Report:VT LabelPrint
    Key        :ctrl+F6

;;======================================================================

[Report: VT LabelPrint]
    Form        : VT LabelPrint
    Object        : Voucher
    Print Set    : ReportTitle : $$LocaleString:"Print Label"

    [Form: VT LabelPrint]
        Part    : VT LabelPrint
        Width    : 3 CMs

        [Part: VT LabelPrint]
            Line    : VT LabelPrint
            Repeat    : VT LabelPrint : Inventory Entries
            Scroll    : Vertical

            [Line: VT LabelPrint]
                Line:VT IT line,VT Ino Line,VT More BatchPrint, VT More LablesPrint, VT PN Line

                [Line:VT IT line]
                    Field:VT IT Fld,VT DD Fld
                    Space Top:.50

                    [Field:VT IT Fld]
                        Use        :Name Field
                        set as    :$Vouchertypename
                        Style    :Normal
                        Width    :15
                        Align    :Centre

                    [Field:VT DD Fld]
                        Use     : Due Date Field
                        Storage : OrderDueDate
                        Inactive: ($$IsSysName:$StockItemName) OR (($$ExplodeLevel < 1) AND @@OrdExplBatch)
                        width    : 8
                        Style    : Normal

            [Line:VT Ino Line]
                Field:VT Ino Fld,VT Qty Fld
                   
                [Field:VT Ino Fld]
                    Set as:$vouchernumber
                    Style:Normal
                    Width:5
                    Align:Centre

                [Field:VT Qty Fld]
                    Use:Qty Primary Field
                    Set as:$BilledQty
                    style:Normal
                    Format : "NoZero,Decimals:0"
                    Width : 15



            [Line:VT TS Line]
                Field:VT Service Type Prn Fld,VT Service

                [Field:VT Service Type Prn Fld]
                    Use:Name Field
                    Set as:$VTServicetype
                    Style:Normal
                    width: 8

                [Field:VT Service ]
                Use:Name Field
                Set as:$VCServiceCat
                Style:Normal
                width: 8



            [Line:VT PN Line]
                Field: VT Product Name Fld
                Explode: EIMoreLabels: $$Number:$BilledQty>1
                Space Bottom: 1;;1.5

        [Part: EIMoreLabels]
            Line :VT IT line,VT Ino Line,VT TS Line,VT More BatchPrint, VT More LablesPrint,VT More Lables

            [Line: VT More Lables]
                Field : VT Product Name Fld
                Explode : EIMoreLabels         : $$Number:$BilledQty >($$ExplodeLevel+1)
                Space bottom: 1;;1.5 ;;1.5

            [Line: VT More BatchPrint]
                Field : VT More BatchPrint
                   
                    [Field : VT More BatchPrint]
                        Use     : Name Field
                        Set as    : $$LocaleString:"Batch : " + $$LocaleString:$$CollectionField:$BatchName:1:BatchAllocations
                        Style    : Small
                       

            [Line: VT More LablesPrint]
                Field : VT More LablesPrint
               
                [Field : VT More LablesPrint]
                    Use     : Name Field
                    Set As    : If $$IsEmpty:($StkAlias:StockItem:$StockItemName) then "("+$StockItemName")"  +
                                  else "("+($StkAlias:StockItem:$StockItemName)+")"
                    Style    : Bar Code

            [Style: Bar Code]
                Font    : IDAutomationHC39S 
                Height  : 10

            [Field: VT Product Name Fld]

                Use: Name Field
                Set as: $StockItemName
                Style: Normal Bold
                Fullwidth:Yes
                Align:Centre

            [#Object : StockItem]

                StkAlias    : $$Alias

Please help me out ...i want bar code in column wise format (4 Columns & 6 Rows)....how to do ...????

 

any plz guide me

 

kindly advise me, How to develop column wise [ Column 4 X Row 7]
Thanks in advance