各位好，

程式遇到一個奇怪問題，同一台電腦，同一台印表機，另一支程式和我的程式，字型都是細明體，也都是 11 點的字，但列印出來後，另一支程式字母之間的距離(水平方向)比較大，我的程式卻比較窄，文字變得比較擠壓，客戶要我做到跟另一支程式一樣，Canvas 沒有字距可以設定，說明裡面也查不到，有人知道解決方法嗎？
我用 TextOut() 另一支程式好像是用 TextRect()，該不會差在這裡吧？

自行計算 TextOut() 要用的 x 座標值, 每字印完後, x+=字寬+間隔, 再印次字, 可達所求.

herbert2 大，大部份字型，字母寬度都不相同，一個字一個字印出來，程式每列印一個字母，都要去算寬度，會很慢，我會被罵死。

===================引 用 herbert2 文 章===================
自行計算 TextOut() 要用的 x 座標值, 每字印完後, x =字寬 間隔, 再印次字,?可達所求.

herbert2 大，謝了。
我這支程很難搞，它是報表程式，資料庫資料抓進來之後，跑出來的報表，全部以 Canvas.Text() 呈現在預覽畫面，一頁可以有一、兩百個文字方塊，兩個文字方塊可能是成對的，例如 "數量 單位"，如果列印的時候修正字母之間的間隔，文字方塊之間可能會有文字重疊的情形。當然，我可以在預覽的 TForm.OnPaint 也修正字母間隔，但這樣我必須把每一個字母用文字方塊來呈現，換頁速度會很慢，但沒關係，更慘的是，我的報表是 "可以修改的"，報表產生後，使用者可以自由新增、修改、移動、刪除、剪下、複製、貼上文字，甚至存檔下次再載進來修改，改到滿意之後，才去列印，如果每一個字母都獨立成一個文字方塊，使用者很難做修改，使用者不可能接受。

您開始只說要調間隔, 並未說是要給 User Edit 完再印.

小弟是用 taFile 做預覽及列印, 故不准 User 改, 但可先存檔等下次再叫出來印.

原則上, 要改內容, 最好是用 TEdit 較恰當, 改完在 Print 出去.
若要存檔再叫出來改, 小弟就幫不上忙了!

的確有困難，不過，還是再描述一下。這是報表程式，資料庫抓到資料後用 TForm.Canvas.TextOut() 一行一行顯示出來，要修改，用滑鼠點文字兩下，即顯示 TEdit 元件供修改，修改好 TEdit 自動隱藏，再呼叫 TForm.Invalidate() 更新畫面，列印時，使用 Print.erCanvas.Text()，所以，預覽和列印都是用 TextOut()，只是 Canvas 不同而已，Canvas 裡面找不到可以調整字距的屬性。
===================引 用 herbert2 文 章===================
您開始只說要調間隔, 並未說是要給 User Edit 完再印.

小弟是用 MetaFile 做預覽及列印, 故不准 User 改, 但可先存檔等下次再叫出來印.

原則上, 要改內容, 最好是用 TEdit 較恰當, 改完在 Print 出去.
若要存檔再叫出來改, 小弟就幫不上忙了!

直接將報表產生 word 檔案後編輯,列印. 可以嗎?

應該不行，因為有些報表是套底圖列印的，轉出到 Word 後，位置難以配合底圖的特定位置。
沒關係，我原本是用細明體 10 點字，後來改用 11 點，就好多了。
===================引 用 t27 文 章===================
直接將報表產生 word 檔案後編輯,列印. 可以嗎?