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
ppReport1.PreviewForm.WindowState := wsMaximized;
// Le pone el icono de la aplicación
ppReport1.PreviewForm.Icon := Application.Icon;
// Le ponemos un caption
ppReport1.PreviewForm.Caption := 'hola caracola';
// Iniciamos el zoom al 100%
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
(<- Me encanta este careto)
-------------------------------------------
«bitting... . . . . . »