大家好，請問用 Crystal Report 如何列印條碼？
我查過很多網頁，包括 K-top 的，試過都不行，以最簡單的 Code39 為例，把欄位內容前後各加一個星號 *，應該就能滿足 Code39 的要求，字型選已按裝好的 3 of 9 Barcode，報表跑出來之後，拿給別人用讀碼機讀，讀不到，也試過複製螢幕存成圖檔，拿條碼辦識軟體來描一下圖檔，仍然分析不出來。
後來改試 Code128，用 Delphi 把文字編成 Code128，再用 Crystal Report 出來，一樣是跟上面一樣，讀不到，也無法用軟體辦識。
參考網頁後自己寫的轉碼程式如下。

function GetCode128(ApplyDocNo : string) : string;
var i, CheckSum : integer;
begin
Result := '';
if ApplyDocNo = '' then exit;
CheckSum := 104; //計算 CheckSum 用 Code128 編碼，STARTA 為 103
for i := 1 to Length(ApplyDocNo) do // Ascii 126 及以前的，都是減 32 就得到 Code128 編號
CheckSum := CheckSum (Ord(ApplyDocNo[i]) - 32) * i; // -32 轉為 Code128 序數
CheckSum := CheckSum mod 103;
Result := #154 ApplyDocNo Chr(CheckSum 32) #156; // 輸出文字用 ASCII
end;

編輯記錄

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/