QuickReport da QRLabel leri dik yazdırma.

[plazma]

slm arkadaşlar. QuickReport da QRLabel leri dik yazdırma ile ilgili forumda araştırdım fakat sanıyorum bulamadım. Diğer raporlama araçları ile bunu yapmak mümkün sanıyorum ama quickreport la bu yapılabilirmi ?

delphi 7 kullanıyorum bu arada.

Hepinize teşekkürler

[powertrk]

Merhaba,
QuickReport da Dikey Yazdırmak için aşağıda ki komutu kullanabilirsiniz
Yanız fonksiyon QuickReport 4 ve üzeri versiyonlar da çalışıyor
Fonksiyon direk yazılınca ekranda açılı görünüyor fakat yazıcıdan açılı şekilde çıktı alabilmek için;

TQuickReport.PrinterSettings.PrintMetaFile özelliğinin Ture Yapıması gerekiyor.

      
function CreateRotatedFont(Font: TFont; Degrees: Integer): HFONT;
var
  LF : TLogFont;
begin
  FillChar(LF, SizeOf(LF), #0);
  with LF do begin
    lfHeight := Font.Height;
    lfWidth := 0;
    lfEscapement := Degrees*10;
    lfOrientation := 0;
    if fsBold in Font.Style then
      lfWeight := FW_BOLD
    else
      lfWeight := FW_NORMAL;
    lfItalic := Byte(fsItalic in Font.Style);
    lfUnderline := Byte(fsUnderline in Font.Style);
    lfStrikeOut := Byte(fsStrikeOut in Font.Style);
    lfCharSet := DEFAULT_CHARSET;
    StrPCopy(lfFaceName, Font.Name);
    lfQuality := DEFAULT_QUALITY;
    lfOutPrecision := OUT_DEFAULT_PRECIS;
    lfClipPrecision := CLIP_DEFAULT_PRECIS;
    case Font.Pitch of
      fpVariable: lfPitchAndFamily := VARIABLE_PITCH;
      fpFixed: lfPitchAndFamily := FIXED_PITCH;
    else
      lfPitchAndFamily := DEFAULT_PITCH;
    end;
  end;
  Font.Size := 5; //---
  Result := CreateFontIndirect(LF);
end;

Kullanımı :

procedure TF_Not_Durum_Formu.QLabel1Print(sender: TObject;
  var Value: String);
begin
 TQRLabel(Sender).Font.Handle := CreateRotatedFont(TQRDBText(Sender).Font,90);
end;

Alıntıdır.