小弟我現在需要做到一個需要到資料庫統計完選定範圍內每天的值後向右列印出來，然後又需依照不同的公司和不同的服務項目往下一筆筆列印出來，因此想請問各位先進是不是有什麼方法可以在Band中是往右印出來 而不是往下印出來 謝謝 印出的格式大致為 8/1 8/2 8/3 ---- 8/29 8/30 8/31 __________________________________________________________________ 公司名稱 服務項目 進貨 出貨 存貨 公司名稱 服務項目 進貨 出貨 存貨 .... 又或者各位先進有什麼其他的方法指教 謝謝

chseszt 你好: 其實要報表橫向發展,的確是很難的 我有幾個方法你可以試試: 1.在sql搜尋時盡量讓查詢出來的結果=報表要印的結果 2.將搜尋後的值,存放在暫存的地方,再由自己控制要出現在表上 的時機(這裡beforeprint需要用一般qrlabel來做不能用dbtext)

------
======================
昏睡~
不昏睡~
不由昏睡~

謝謝KO大的回答 後來在做的時候是改用StringGrid去塞值

轉到Excel格式後就可以輕易利用Office環境來列印......    #include "Disposal_u.h"    char xColCC[26]=   {'A','B','C','D','E','F','G','H','I','J','K','L','M',    'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',}; AnsiString szCol,szRow; Variant ExAp,WorkBook,Sheet;    ExAp = CreateOleObject("Excel.Application"); try   {ExAp=Variant::CreateObject("Excel.Application"); } catch(Exception &e)   {ShowMessage(e.Message); } if(ExAp.IsEmpty()) return;    ExAp.OlePropertySet("Visible",true);    try   {WorkBook = ExAp.OlePropertyGet("WorkBooks").OleFunction("Add"); } catch(Exception &e)   {ShowMessage(e.Message);   } if(WorkBook.IsEmpty()) return;    Sheet = WorkBook.OlePropertyGet("Worksheets").OlePropertyGet("Item",1);    for(int i=0;iColCount;i ) for(int j=0; jRowCount; j ) { int m=i/26-1; int n=i&; szCol=(m<0)? (AnsiString)xColCC[n]: (AnsiString)xColCC[m] (AnsiString)xColCC[n]; szRow=(IntToStr)(j 1); Sheet.OlePropertyGet("Range",StringToOleStr(szCol szRow)).OlePropertySet("Value",StringToOleStr(StringGrid1->Cells[i][j])); }