>my client need all report can read from EXCEL
>my report as below :
>
>*****
>print by ABC XXX company 22 Jan,1999 10:00am
> AA sales report
>
>invoice no. date amount outstand
>----------- ---- ------ --------
>990001 20/02/99 800 800
>990002 30/02/99 40 100
>
>*****
>
>how can i put it in EXCEL
Hs,
Starting with invoiceno part is easy :) Above that need some .Cell(nRow, nCol).value = ..., font.Bold = .. etc coding.
You could just export your data to excel or copy to ... type xls. Another option is to use Application.Datatoclip and paste in excel. ie: Paste sample :
lparameters tcDataCursor
Application.DataToClip(tcDataCursor,reccount(tcDataCursor),3)
oExcel = createobject("excel.application")
with oExcel
.Workbooks.add
with .activesheet
.Cells(1,1).Select
.Paste
endwith
endwith
This method is fast and works with data that's not more than 2000-3000 records.
Cetin