Invoice Printing [Help]

Respected Forum Members,

I want you kind help to Print Drivers Name in Invoice:

Code:
;Vehicles
[Report: Vehicles]
Form : VehiclesForm
Object : Company
[Form: VehiclesForm]
Parts : VehicleFormTitle, VehicleFormDetails
Background : Light Lily Yellow
Use : Vch SubFormPadding
Width : 40% Screen
Height : 100% Screen
[Part: VehicleFormTitle]
Lines : Form SubTitle, VehcileFormTitle
Local : Field : Form SubTitle : Info : "List of Vehicles"
Local : Line : VehcileFormTitle: Border : Column Titles
[Line: VehcileFormTitle]
Use : VehiclesDetails
Local : Field : Default : Style : Small Bold
Local : Field : Default : Skip : Yes
Local : Field : Default : Type : String
Local : Field : Default : Delete: Storage
Local : Field : Default : Lines : 1.5
Local : Field : CSVehNum : Set as: "Vehicle No."
Local : Field : CSVehNum : Width: 12
Local : Field : CSVehDrName : Set as: "Driver's Name"
Local : Field : CSVehDrName : Width: 20
Local : Field : CSVehDrTel : Set as: "Driver's Contact"
Local : Field : CSVehDrTel : Width: 12
Local : Field : CSVehType : Set as: "Vehicle Type"
Local : Field : CSVehType : Width: 15
Local : Field : Default : Delete: Inactive
[Part: VehicleFormDetails]
Line : VehiclesDetails
Repeat : VehiclesDetails : VehiclesDetails
Scroll : Vertical
CommonBorder: Yes
BreakOn : $$IsEmpty:$CSVehNum
[Line: VehiclesDetails]
Field : CSVehNum, CSVehDrName,CSVehDrTel, CSVehType
Local : Field : Default : Style : Small
[Field: CSVehNum]
Use : Short Name Field
Storage : CSVehNum
Border : Thin Left
Width : 12
Format : Upper Case
Unique : Yes
[Field : CSVehDrName]
Use : Name Field
Storage : CSVehDrName
Border : Thin Left
Width : 20
Inactive: $$IsEmpty:$CSVehNum
[Field : CSVehDrTel]
Use : Number Field
Storage : CSVehDrTel
Border : Thin Left
Width : 12
Inactive: $$IsEmpty:$CSVehNum
Format : $$LocaleString:"No Comma"
[Field : CSVehType]
Use : Short Name Field
Storage : CSVehType
Border : Thin Left Right
Width : 15
Inactive: $$IsEmpty:$CSVehNum

[Collection: CSVehColl]
Type : VehiclesDetails : Company
Childof : ##SVCurrentCompany
Sub Title: $$LocaleString:"Vehicle No.", "Driver Name", "Contcat"
Format : $CSVehNum,12
Format : $CSVehDrName,20
Format : $CSVehDrTel,12
Title : "Vehicle Details"
Fetch : CSVehNum, CSVehDrName, CSVehDrTel, CSVehType

[Line: CSVechicleDet]
Field : Medium Prompt, EIVehicleDet
Local : Field : Medium Prompt : Set as : "Vehicle : "
Local : Field : Medium Prompt : Width: 15
[Field: EIVehicleDet]
Use : Short Name Field
Table : CSVehColl, Not Applicable
Show Table : Always
Storage : EIVehDet
Key : Create Vehicles
Tooltip: "Press Alt+C to Add New Vehicles"
[Key: Create Vehicles]
Key : Alt + C
Action: Alter: Vehicles


;;Printing

[#Part: EXPINV BasicLeft]
Add: Parts: At End: VehNum, VehContact
[Part: VehNum]
Lines : EXPINV SubTitle
BottomLines : VehNum
Local : Field : EXPINV SubTitle : Set as : "Vehcile No. :"
Local : Field : EXPINV SubTitle : Width : 25% Page
Local : Field : EXPINV SubTitle : Cells : ($$Quotient@ExcelCellColumn:4)
Border : Full Thin Bottom
Height : 9 mms
[Line:VehNum]
Add : Field: EIVehicleDet
[Part: VehContact]
Lines : EXPINV SubTitle
BottomLines : VehContact
Local : Field : EXPINV SubTitle : Set as : "Driver's Contact :"
Local : Field : EXPINV SubTitle : Width : 25% Page
Local : Field : EXPINV SubTitle : Cells : ($$Quotient@ExcelCellColumn:4)
Border : Full Thin Bottom
Height : 9 mms
[Line:VehContact]
Add: Field: CSVehDrTel
[#Part: EXPINV BasicRight]
Add: Part: At End: Driver
[Part: Driver]
Lines : EXPINV SubTitle
BottomLines : Driver
Local : Field : EXPINV SubTitle : Set as : "Driver's Name :"
Local : Field : EXPINV SubTitle : Width : 25% Page
Local : Field : EXPINV SubTitle : Cells : ($$Quotient@ExcelCellColumn:4)
Border : Full Thin Bottom
Height : 9 mms
[Lineriver]
Add: Field: Driver
[Field: Driver]
Set as : $CSVehNum:CSVehColl:#EIVehicleDet ;need help in this line...


(Driver Name is not Getting in Printing)