Dataset2Excel 如何改變欄寬至最適欄寬，以及統一設定字型大小？ |
|
答題得分者是：firesu
|
|
schang
一般會員   發表：7 回覆：6 積分：2 註冊：2018-09-05 發送簡訊給我 |
我目前使用的是 NativeExcel 的 Dataset2Excel 元件
請問要如何將所有欄寬設定成最符合的欄寬呢？ 另外，已知分別修改標題與資料的字型大小如下 Dataset2Excel1.HeaderFont.Name := '微軟正黑體'; Dataset2Excel1.HeaderFont.Size := 10; Dataset2Excel1.DetailFont.Name := '微軟正黑體'; Dataset2Excel1.DetaiFont.Size := 10; 有沒有辦法能整個工作表一起設定呢？ （就是不用分 Header 跟 Detail） |
|
firesu
中階會員  發表：26 回覆：28 積分：55 註冊：2004-12-27 發送簡訊給我 |
這樣看看
[code delphi] procedure TForm1.Dataset2Excel1AfterExport(Sender: TObject; Range: IXLSRange); begin range.Worksheet.Range['A1','Z65535'].Font.Name := '微軟正黑體'; range.Worksheet.Range['A1','Z65535'].Font.Size := 10; range.AutoFit(true); end; [/code] ===================引 用 schang 文 章=================== 我目前使用的是 NativeExcel 的 Dataset2Excel 元件 請問要如何將所有欄寬設定成最符合的欄寬呢？ 另外，已知分別修改標題與資料的字型大小如下 Dataset2Excel1.HeaderFont.Name := '微軟正黑體'; Dataset2Excel1.HeaderFont.Size := 10; Dataset2Excel1.DetailFont.Name := '微軟正黑體'; Dataset2Excel1.DetaiFont.Size := 10; 有沒有辦法能整個工作表一起設定呢？ （就是不用分 Header 跟 Detail） |
|
schang
一般會員 發表：7 回覆：6 積分：2 註冊：2018-09-05 發送簡訊給我 |
謝謝你！確實可以用。
不過想問一下有沒有辦法取得最後一筆資料的列數呢？ 不然 65535 好像有點大呀。 ===================引 用 firesu 文 章=================== 這樣看看 [code delphi] procedure TForm1.Dataset2Excel1AfterExport(Sender: TObject; Range: IXLSRange); begin range.Worksheet.Range['A1','Z65535'].Font.Name := '微軟正黑體'; range.Worksheet.Range['A1','Z65535'].Font.Size := 10; range.AutoFit(true); end; [/code] |
|
firesu
中階會員 發表：26 回覆：28 積分：55 註冊：2004-12-27 發送簡訊給我 |
range.Worksheet.RCRange[1,1,range.Rows.Count,range.Columns.Count].Font.xxxx :=yyyy;
===================引 用 schang 文 章=================== 謝謝你！確實可以用。 不過想問一下有沒有辦法取得最後一筆資料的列數呢？ 不然 65535 好像有點大呀。 ===================引 用 firesu 文 章=================== 這樣看看 [code delphi] procedure TForm1.Dataset2Excel1AfterExport(Sender: TObject; Range: IXLSRange); begin range.Worksheet.Range['A1','Z65535'].Font.Name := '微軟正黑體'; range.Worksheet.Range['A1','Z65535'].Font.Size := 10; range.AutoFit(true); end; [/code]
編輯記錄
firesu 重新編輯於 2019-04-22 10:18:03， 註解 無‧
|
|
schang
一般會員 發表：7 回覆：6 積分：2 註冊：2018-09-05 發送簡訊給我 |
可以用！太感謝你了！！！
===================引 用 firesu 文 章=================== range.Worksheet.RCRange[1,1,range.Rows.Count,range.Columns.Count].Font.xxxx :=yyyy; ===================引 用 schang 文 章=================== 謝謝你！確實可以用。 不過想問一下有沒有辦法取得最後一筆資料的列數呢？ 不然 65535 好像有點大呀。 ===================引 用 firesu 文 章=================== 這樣看看 [code delphi] procedure TForm1.Dataset2Excel1AfterExport(Sender: TObject; Range: IXLSRange); begin range.Worksheet.Range['A1','Z65535'].Font.Name := '微軟正黑體'; range.Worksheet.Range['A1','Z65535'].Font.Size := 10; range.AutoFit(true); end; [/code] |
發表時間：2019-04-11 16:10:04
IP:60.250.xxx.xxx 未訂閱
系統時間：2024-04-29 22:41:45
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |