FastReport 報表

要轉為PDF檔 只要多拉一個 TfrxPDFExport

然後程式碼下

frxMainReport.PrepareReport(True);  // 若沒有列印則需加此指令才能順利匯出
frxMainPDFExport.FileName := ReturnString;
frxMainReport.Export(frxMainPDFExport);
 
即可匯出PDF檔案
 
繁體中文的PDF檔在繁體中文的作業系統下可以瀏覽沒問題
 
但是遇到簡體中文的作業系統就會便亂碼
 
所以必須在PDF檔案內嵌入字型
 
只要在 TfrxPDFExport 的屬性 EmbeddedFonts 屬性 設為true 就可以自動嵌入字型
 
但是嵌入字型後的檔案大小很可觀
 
嵌入前13K
 
嵌入後10274K
 
所以目前採用函式轉字型
 
附上繁簡轉換函式
 
  1. function Cn2Big(CnStr: string): string;  
  2. var  
  3.   Len: Integer;  
  4. begin  
  5.   Len := Length(CnStr);  
  6.   SetLength(Result, Len);  
  7.   LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(CnStr), Len, PChar(Result), Len);  
  8. end;  
  9.   
  10. function BIG2cn(bigStr: string): string;  
  11. var  
  12.   Len: Integer;  
  13. begin  
  14.   Len := Length(bigStr);  
  15.   SetLength(Result, Len);  
  16.   LCMapString(GetUserDefaultLCID, LCMAP_SIMPLIFIED_CHINESE, PChar(bigStr), Len, PChar(Result), Len);  
  17. end;  

來源 http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=104986

arrow
arrow
    文章標籤
    Delphi FastReport PDF
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

    抓狂小白 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄