小弟有一張Word製成的表格 現在想要寫成程式來印 因為此張表格實在很複雜 所以不知有什麼方式可以先將這表格先轉到QReport上 至於轉換的方式小弟想過兩種 其一: 將整張表格都先轉成QReport,等同於在QReport畫了此表格 其二: 程式列印時去抓此表格的Word檔來套印 **************************************** 不過以上的方式小弟都不知該如何處理 煩請各位高手提供方式!!! -Tks- 發表人 - TTS 於 2005/05/26 11:58:24

您好!    我有遇到過這樣的問題， 不過因為我不會Word套印， 後來將其轉換成Excel檔再套印，沒有問題. 請參考如下代碼,希望能對您有幫助: < class="code"> Uses ComObj ... procedure TForm1.InsertData_Sample; var i : Integer ; sTest : String; ExcelApp : variant ; begin ExcelApp := CreateOleObject('Excel.Application') ; ExcelApp.Visible := FALSE; ExcelApp.Caption := 'test-xls'; //以下開啟舊檔 if not(FileExists('c:\demo.xls')) then begin Showmessage('開啟檔案DEMO.XLS失敗!') ; Abort ; end else begin with TMemoryStream.Create do try LoadFromFile('c:\demo.xls') ; SaveToFile('c:\Samptemp.xls') ; finally free ; end ; end ; Try ExcelApp.WorkBooks.Open( ApplicationPath 'Samptemp.xls' ); ExcelApp.WorkBooks[1].Activate; ExcelApp.WorkSheets[1].Activate; ... // ExcelApp.ActiveSheet.Cells[1,1].Value := 'test1' ; 或 // ExcelApp.ActiveSheet.Range[ 'A18' ].Value := 'test2'; ... Except Showmessage('打開EXCEL發生異常!') ; ExcelApp.ActiveWorkBook.Saved := True; ExcelApp.quit ; End ; ExcelApp := Unassigned; end;

您好: 一般來講我會用3種方式,視狀況而定. 1.自己在QuickRep中畫,好處是使用者操作簡單,壞處是只要改報表樣式,使用者就會想找你聊聊...因為沒看到版面你也沒陳述你的問題在哪,所以幫不上忙. 2.直接使用程式做Word套表,下面列出參考資料,請研究後再發問. http://delphi.ktop.com.tw/topic.php?topic_id=22330 這個有source檔案 http://delphi.ktop.com.tw/topic.php?topic_id=22331 http://delphi.ktop.com.tw/topic.php?topic_id=22332 http://delphi.ktop.com.tw/topic.php?topic_id=22702 http://delphi.ktop.com.tw/topic.php?topic_id=22703 http://delphi.ktop.com.tw/topic.php?topic_id=25423 http://delphi.ktop.com.tw/topic.php?topic_id=25555 我的做法是,在Word上填資料的地方去做一個Tag,程式在套表時會去搜尋Tag,然侯將真正的資料去取代那個Tag,以達到套表功能. 3.將Word所要套表的欄位定義出來,然後利用程式將資料轉成Excel,如何轉Excel搜尋站內有一卡車資料,最後利用Word內建的資料套表功能與Excel做結合,這個去書店隨便翻本Word的書都會教.

請問zxy666666 你是如何將Word先轉存成Excel? 另外你提供的方式 應該只是開啟excel吧?

引言: 請問zxy666666 你是如何將Word先轉存成Excel? 另外你提供的方式 應該只是開啟excel吧?

hi,TTS您好！ 我轉Excel是用笨方法.（自己手動畫的啦,因為我用的是固定格式所以就辛苦一次了,誰叫我Word不太會用呢.不過我想還真的要找時間好好學習有關轉Word的知識) 或許你可以搜尋並參考本站上的一些資料去轉Excel. 以下兩行就是指定位置填入資料的兩種寫法:

//    ExcelApp.ActiveSheet.Cells[1,1].Value := 'test1' ;
或
//    ExcelApp.ActiveSheet.Range[ 'A18' ].Value  := 'test2';