delphi5中怎样垂直打印?

Question

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

Answer 1

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

Answer 2

<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;

Answer 3

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