Problema con RB

[torres77]

Hola a todos, soy nueva en el foro, espero me puedan ayudar.

Necesito manipular la ventana en la que se muestra el Reporte.
No uso el objeto Viewer.

Como puedo hacer para habilitar o desabilitar el botón de impresión de la pantalla que contiene el reporte, desde Delphi??

Como puedo maximizar esta pantalla desde Delphi.

Manejo Delphi 5.0

Espero sus respuestas. Gracias!!!

Saludos desde Mty, N.L. México

[bitERROR]

holas torres77, creo que con RB te refieres a ReportBuilder, verdad ? jeje sino esto no te será de mucha utilidad.

El formulario de preview de reportbuilder está en el subdirectorio source, allá donde lo tengas instalado (yo lo tengo aquí C:\Borland\Componentes\RBuilder\Source)
el archivo en cuestión se llama ppPrvDlg.pas y su correspondiente .dfm

Puedes personalizar tu pantalla de preview modificando este formulario (te recomiendo que guardes un copia del original por si acaso).

De todos modos, si te encuentras en una ocasión excepcional hay remedios que no necesitan de modificar este formulario... si has abierto el formulario de preview, verás que el botón al que te refieres es un speedbutton que se llama spbPreviewPrint, volviendo a tu report, puedes programar esto en el evento OnPreviewFormCreate del TppReport que vayas a lanzar...

procedure TForm1.ppReport1PreviewFormCreate(Sender: TObject);
begin
// Oculta el botón para imprimir ;)
if ppReport1.PreviewForm.FindComponent('spbPreviewPrint') <> nil then
TSpeedButton(ppReport1.PreviewForm.FindComponent('spbPreviewPrint')).Visible := False;
// Maximiza el formulario :D
ppReport1.PreviewForm.WindowState := wsMaximized;
// Le pone el icono de la aplicación :cool:
ppReport1.PreviewForm.Icon := Application.Icon;
// Le ponemos un caption :)
ppReport1.PreviewForm.Caption := 'hola caracola';
// Iniciamos el zoom al 100% :o
TppViewer(ppReport1.PreviewForm.Viewer).ZoomSetting := zs100Percent;
end;

Ojo! para lo del zoom es necesario que añadas al uses la unidad ppViewr.

Un xaludo, espero haberte ayudado :eek: (<- Me encanta este careto)

-------------------------------------------
«bitting... . . . . . »