Bar Code Printing thru TDL

Hi All,

Is there any latest developments on Bar Code Printing thru TDL (except the known method of using Font for Barcode) ?

Please enlighten.

 

Sir,
The source code is available in Tally Developer Book(7.2 Version)
I here with attachment the code


[#Form: Sales Order Color]
Add: Print : VT LabelPrint
Add:Button:VT LabelPrint

[Button:VT LabelPrint]
Actionrint Report:VT LabelPrint
Key:ctrl+F6




[Report: VT LabelPrint]

Form: VT LabelPrint
Object: Voucher


[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 TS Line,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:5
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"

[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 Lables

[Line: VT More Lables]

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



[Field: VT Product Name Fld]

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

;;----------------------------- Service Type Entry Line -------------------------
[#Line:EI Columnone]
Add:Right Fields:Before:VCH QtyTitle:VT Service Type Title
Add:Right Field:Before:VT Service Type Title:VT SERvice Type;;,Vch Discamttitle,Vch Discpertitle,VCH Gross,Vchs Ratetitle

[Field:VT Service Type Title]
Info:"Service Type"
Width:10
Style:Normal Bold
Align:Right
Invisible:Not @@ISSalesorder

[Field:VT SERvice Type]
Info:"Service Catagory"
Width:10
Style:Normal Bold
Align:Right
Invisible:Not @@ISSalesorder

[#Line:EI ColumnTwo]
Add:Right Fields:Before:VCH ActualQtyTitle:VT Service Type Title
Add:Right Field:Before:VT Service Type Title:VT SERvice Type
Local:Field:VT Service Type Title:Info:""
Local:Field:VT SERvice Type:Info:""

[#Line: CI InvInfo]

Add:Right Fields:Before:VCHActualQty:VT Service Type Fld
Add:Right Field:Before:VT Service Type Fld:VC SERvice Type

[#Line:EI Invinfo]
Add:Right fields:Before:VCH ActualQty:VT Service Type Fld
Add:Right Field:Before:VT Service Type Fld:VC SERvice Type



[Field:VT Service Type Fld]
Use:Name Field
Storage:VTServicetype
Style:Normal
Table : Vt Service Type
Show Table : Always
Width:10
Invisible:Not @@ISSalesorder
Inactive : $$IsEnd:$StockItemName OR @@NoBaseUnits

[Field:VC SERvice Type]
Use:Name Field
Storage:VCServiceCat
Style:Normal
Table : VT Service Cat
Show Table : Always
Width:10
Invisible:Not @@ISSalesorder
Inactive : $$IsEnd:$StockItemName OR @@NoBaseUnits

[System:UDF]
VTServicetype:String:715
VCServiceCat:String:716



[Collection:VT Service Type]
ObjectC,LUND,POL,IR,Polish
Title:"Service Cat"

[ObjectC]
Name:"Dryclean"

[Object:LUND]
Name:"Loundary"

[ObjectOL]
Name:"MTO"

[Object:IR]
Name:"Wash"

[Objectolish]
Name:"Polish"






[Collection:VT Service Cat]
Object:LS,MS,HS,NS,Stain,LSStain,MSStain,HSStain,NSStain
Title:"Service Cat"

[Object:LS]
Name:"LS"

[Object:MS]
NAME:"MS"

[Object:HS]
Name:"HS"

[Object:NS]
Name:"NS"

[Object:STAIN]
Name:"STAIN"

[Object:LSStain]
Name:"LS/STAIN"

[Object:MSSTAIN]
NAME:"MS/STAIN"

[Object:HSSTAIN]
NAME:"HS/STAIN"

[Object:NSSTAIN]
NAME:"NS/STAIN"

 

Sir,

Its not working

 

Dear Anshul please check in sales order voucher.

 

Respected Sir,

Thanks a lot for your valuable support !

May i have some favor from you as i am looking for printing the Bar Code Labels using Purchase Voucher.
i.e. The Similar Number of Bar Code Labels can get printed as the materials arrived.

 

Change first line [#Form: Sales Order Color] to [#Form: Purchase Color]

 

Thanks Sir,

I am adding a file for your reference. Presently i am getting the Bar Codes vertically. I want to get the labels printed in A4 Size Paper with 56 Labels 4 x 14 labels. Is it Possile ?

 

This is possible.

 

How can this possible ? Can you please share code ?

 

Dear Deepak K Swain,

Pls share your knowledge, i am also want to know how it is possible.

Thanks in advance