Rotate Delphi QuickReport 3.0 90 degrees

Need to rotate a Quick Report - which in fact is a small label - 90 degrees

Code below:

type
TBarLineType = (white, black, black_half); {for internal use only}
TformCodigoBarras07 = class(TForm)
QuickRep: TQuickRep;
QRBandTitulo: TQRBand;
QRLabelClienteProduto: TQRLabel;
QRLabelNumeroSerie: TQRLabel;
QRLabelDataTriagem: TQRLabel;
QRImage: TQRImage;
Barcode1D_Code128: TBarcode1D_Code128;
private
{ Private declarations }
public
{ Public declarations }
procedure pEtiquetaTesteCB( lsClienteProduto, lsNumeroSerie, lsDataTriagem : string );
end;

var
formCodigoBarras07 : TformCodigoBarras07;

implementation

{$R *.DFM}

procedure TformCodigoBarras07.pEtiquetaTesteCB( lsClienteProduto, lsNumeroSerie, lsDataTriagem : string );
begin
qrLabelClienteProduto.caption := lsClienteProduto;
barcode1D_Code128.barCode := lsNumeroSerie;
barcode1D_Code128.image.repaint;

qrLabelNumeroSerie.caption := lsNumeroSerie;
qrLabelDataTriagem.caption := lsDataTriagem;

quickRep.print;
end;