F�rum Relat�rio com Gr�fico #293000

25/08/2005

Pessoal, estou imprimindo um relat�rio com um gr�fico, o problema, � que n to conseguindo acertar uma posi��o em Y para a impress�o do gr�fico.
Se aumentar ou diminuir o nr de registros que aparece antes do gr�fico, j� n d� mais certo.
Ser� que algu�m poderia me ajudar?

Obrigada.

C�digos da fun��o e da chamada do gr�fico abaixo:


procedure TfrmPrincipal.PrintBitmapScaled(BaseReport: TBaseReport;
                              X1: double;
                              Y1: double;
                              DesiredWidth: double;
                              DesiredHeight: double;
                              Bitmap: TBitmap);
  var
    Calc: double;

  begin { PrintBitmapScaled }
    If Bitmap.Empty = True then Exit;
    With BaseReport do begin
      If DesiredWidth <= 0.0 then begin
        Calc := DesiredHeight * (Bitmap.Width / XDPI) / (Bitmap.Height / YDPI);
        PrintBitmapRect(X1,Y1,X1 + Calc,Y1 + DesiredHeight,Bitmap);
      end else if DesiredHeight <= 0.0 then begin
        Calc := DesiredWidth * (Bitmap.Height / YDPI) / (Bitmap.Width / XDPI);
        PrintBitmapRect(X1,Y1,X1 + DesiredWidth,Y1 + Calc,Bitmap);
      end else begin
        PrintBitmapRect(X1,Y1,X1 + DesiredWidth,Y1 + DesiredHeight,Bitmap);
      end; { else }
    end; { with }
  end;  { PrintBitmapScaled }


        frmPrincipal.PrintBitmapScaled(ReportObj,2.8,PosicaoY,
                                      ReportObj.PageWidth - 5.0 - (ReportObj.MarginLeft+ReportObj.MarginRight),
                                      0.0,Grafico);

Ffpradella

Curtir t�pico

+ 0

Responder