delphi5中怎样垂直打印?

[cpu]

我想打印如下结果:

________
| 中 |
| 国 |
| 申 |
| 奥 |
| 成 |
| 功 |
|_____|

该怎样做,qrlabel或qrdbtext能否打印垂直字符呢?请赐教

[liuzhiping]

qrlabel.Caption :='中'+chr(13)+'国'+chr(13)+'申'+chr(13)+'奥'+chr(13)+'成'+chr(13)+'功';

[Apollo47]

Printer.Orientation:= poPortrait; // 垂直
Printer.Orientation:= poLandscape; //水平

[王集鹄]

<From> http://www.csdn.net/expert/topic/75/75814.shtm

有可以旋转的字体
你试试看吧

procedure TForm1.Button1Click(Sender: TObject);
var
lf: TLogFont;
tf: TFont;
begin
with Label1 do begin
Width := 137;
Height := 97;
AutoSize := False;
end;

Label1.Font.Name := '黑体'; //要用TrueType字体
Label1.Font.Size := 24;
tf := TFont.Create;
tf.Assign(Label1.Font);
GetObject(tf.Handle, SizeOf(lf), @lf);
lf.lfEscapement := 450; //旋转的角度(单位0.1度)
lf.lfOrientation := 450;
tf.Handle := CreateFontIndirect(lf);
Label1.Font.Assign(tf);
Label1.Font.Handle := CreateFontIndirect(lf);
Label1.Caption := #13#10#13#10'Hello';
tf.Free;
end;

[tongdings]

rxlabel1.caption:='中'+#13+'国’+#13+‘申’+#13+‘奥’+#13+‘成’+#13+‘功’；
即可。