意思就是，假若我有一字串為“鏇轉測試半角ABC全角ａｂｃ”，我需要將其中的英文及數字類字符在輸齣時順時針鏇轉90℃，但我編寫下列代碼后髮現，如果將字串輸齣至TForm的Canvas，輸齣的是預期結果，但若輸齣至TPrinter的Canvas，打印齣來的英文、數字字符並未鏇轉，請問要如何解決？ 望賜教。 代碼： //字串為竪式顯示 var lfC, lfE : TLogFont; tfC, tfE : TFont; i, j, fH : integer; s : string; a :array of string; r: TRect; begin s := '鏇轉測試半角ABC全角ａｂｃ'; SetLength(a, Length(s));//求簡單 i := 1; j := 0; with Form1.Canvas do begin r := Rect(20, 20, 80, 300); Font.Name := '黑體'; Font.Size := 12; tfC := TFont.Create; tfE := TFont.Create; tfC.Assign(Font); tfE.Assign(Font); GetObject(tfC.Handle, sizeof(lfC), @lfC); GetObject(tfE.Handle, sizeof(lfE), @lfE); lfC.lfEscapement := 0; lfC.lfOrientation := 0; lfE.lfEscapement := -900; lfE.lfOrientation := -900; tfC.Handle := CreateFontIndirect(lfC); tfE.Handle := CreateFontIndirect(lfE); fH := Abs(Font.Height); while i<=Length(s) do if (Ord(s[i])>=128)and(Ord(s[i])<>163) then begin Font.Assign(tfC); TextOut(0, fH*j, Copy(s, i, 2)); Inc(i,2); Inc(j); end else if (Ord(s[i])<=127) then begin Font.Assign(tfE); TextOut(fH, fH*j, Copy(s, i, 1)); Inc(i,1); Inc(j); end else if (Ord(s[i])=163) then begin Font.Assign(tfE); TextOut(fH, fH*j, Copy(s, i, 2)); Inc(i,2); Inc(j); end; tfC.Free; tfE.Free; end; end;