Cambiar el nivel de zoom en un Quick Report programáticamente

[ecfisa]

Hola.

Coincido totalmente con la sugerencia de Caminante, un ejemplo programático simple:

Código PHP:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  cSpinEditZoomValue->Value = 100;
  Panel1->Align     = alTop;
  QRPreview1->Align = alClient;
}

// QuickRep OnPreview
void __fastcall TForm1::QuickRep1Preview(TObject *Sender)
{
  QRPreview1->QRPrinter = static_cast<TQRPrinter*>(Sender);
  QRPreview1->Show();
}

// Preview
void __fastcall TForm1::btnPreviewClick(TObject *Sender)
{
  QuickRep1->Preview();
}

// To fit
void __fastcall TForm1::btnZoomToFitClick(TObject *Sender)
{
  QRPreview1->ZoomState = qrZoomToFit;
  QRPreview1->ZoomToFit();
}

// To width
void __fastcall TForm1::btnZoomToWidthClick(TObject *Sender)
{
  QRPreview1->ZoomState = qrZoomToWidth;
  QRPreview1->ZoomToWidth();
}

// Custom
void __fastcall TForm1::cSpinEditZoomValueChange(TObject *Sender)
{
  QRPreview1->ZoomState = qrZoomOther;
  QRPreview1->Zoom      = cSpinEditZoomValue->Value;
} 


Muestra:


Saludos