向各路大大求救!!!!! 我安裝了Unicode元件已可輸入日文,但QuickReport無法列印,請問?可有列印 Unicode之元件?謝謝! 何明昌

------
何明昌

mcho 你好: 可以用htm來印,詳情請搜尋.. DelphiWWW版主所有留言...

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

hi ! ko 您好! 謝謝您回應,因為我要印的是標籤,格式大小要動態控制,用htm列印不好控制 我希望元件在可在QuickReport上列印,可能嗎? 何明昌

------
何明昌

日文 codepage 為 932 將 PWChar 轉成日文字 function WideCharToStr(WStr: PWChar; Len: Integer): string; begin if Len = 0 then Len := -1; Len := WideCharToMultiByte(932, 0, WStr, Len, nil, 0, nil, nil); SetLength(Result, Len); WideCharToMultiByte(932, 0, WStr, Len, PChar(Result), Len, nil, nil); end; 記得要設 Font.Charset := SHIFTJIS_CHARSET; var w: WideString; begin w := Field.Value; QRLabel1.Font.Charset := SHIFTJIS_CHARSET; QRLabel1.Caption := WideCharToStr(PWideChar(w), Length(w)); end;

hi!solnone 謝謝您的回應,但我印'ｱｲｳｴ'印出來變為'捲陷'二字,不知問題出在哪? **我用d5,資料庫是Access 2000 何明昌

------
何明昌

要設字集 QRLabel1.Font.Charset := SHIFTJIS_CHARSET; 你可以把程式寫在 QRBandBeforePrint 事件中！ 就可以用 QRLabel 來 SHOW DB 中的資料了 取欄位資料要用 WideString 來接 Field.Value procedure TQuickReport1.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); var ws: WideString; begin ws := ADOTable1.Fields[0].Value; QRLabel1.Font.Charset := SHIFTJIS_CHARSET; QRLabel1.Caption := WideCharToStr(PWideChar(ws), Length(ws)); end;

hi!solnone 謝謝您!依照您的方法,結果還是一樣!總之還是很感謝您! 何明昌

------
何明昌

你可能是沒有安裝日文的系統語系， 我的OS 是 WINDOWS 2000 P 先看你的 控制台-> 地區選項 -> 一般 -> 系統的語言設定 中，日語是不是有選到，沒有的話選日語來安裝！

hi!solnone 日語安裝後,總算印出日語來了,但如欄位非存日語就不行, 如:"成份:ｱｲｳｴ"(資料包含中文會變成"成?:ｱｲｳｴ") 何明昌

------
何明昌

你這樣一個 field 中有二個語言，中文和日文(多國語言)！ delphi中的 QuickReport 不支援多國語言 你必需自已分開來顯示！ 不然就不要用它了！…

hi!solnone:謝謝您! 可否再請教一個問題?FastReport有支援多國語言嗎?我的標籤程式,每一行間距及字體大小必須控制列印前必須傳入間距及字體大小參數,不知FastReport能否作得到,或是給一個建議要使用何種Report? 最後向站長道歉!我的問題可能超出本項範圍! 何明昌

------
何明昌

hi!solnone 謝謝您熱心指教,雖然我的問題未解決,仍然讓我受益良多,以後的問題轉到報表設計開發討論區(Delphi)尋求解答,本題由您得分,謝謝! 何明昌

------
何明昌