Barra de botnes del PREVIEW

[StartKill]

Wnas foro,

Trabajo con D7, IB7.5 y Utilizo el QuicReport 3.0.9

Deseo configurar mi barra de botones
- Como puedo inahabilitar el boton de impresora del preview.??
- Como puedo añadir nuevos botones en el preview??

Gracias por su pronta ayuda...

Your friend

StartKill
Lima-Perú

[roman]

En este hilo (http://www.clubdelphi.com/foros/showthread.php?t=16608&highlight=quickreport) encontrarás una forma de acceder a la barra de herramientas del preview del QuickReport.

Sin embargo, como ahí mismo se comentó, lo que realmente te conviene es crearte tu propio visor personalizado, que para algo está la componente TQRPreview.

// Saludos

[jcarlos.matrix]

hola , la verdad no se si de lo que hablan es del quickreport pero me gustaria la ayuda para agregar un boton a mi quickreport para ligarle un procedimiento que me convierte a pdf el quickreport,

ya tengo la funcion pero me dice que necesito tener encendido el quickpreport1.preview, y que dentro este el boton para aplicar la conversion de quickrep a pdf,

estuve viendo el hilo que mensiona roman pero soy un novaton y necesito un poco de mas informacion.

muchas gracias de antemano , saludos, gracias a todos.

el procedimiento que debe de estar adentro es
procedure TForm1.Button1Click(Sender: TObject);
var
B:TBitmap;
MF:TMetaFile;
JPG:TJPegImage;
i:Integer;
lPV:Boolean;
nPaginas:Integer;
cFileExport:string;
// s : TQRStandardPreview;
begin
cFileExport := Trim(Caption);
SaveDialog1.FileName := cFileExport+'.PDF';
// Pide el Nombre del Archivo que le vas a poner
cFileExport := 'c:\test.pdf';
lPV := True;
// Se supone que hicieste un PREVIEW de tu reporte y te lo mostro
// a pantalla entonces checaremos cuantas paginas son de tu reporte
// npaginas:=quickrep1.QRPrinter.PageCount;

nPaginas := QRPreview1.QRPrinter.PageCount;
// y Utilizamos el componente PREport
PReport1.FileName := cFileExport;
PReport1.BeginDoc;
B :=TBitmap.Create;
jpg :=TJPegImage.Create;
// Recorremos las paginas de nuestro reporte
For i:=1 to nPaginas do
begin
MF :=QRpreview1.QRPrinter.GetPage(i);
B.Width :=MF.Width;
B.Height :=MF.Height;
B.Canvas.Draw(0,0,MF);
// Convertimos la Pagina a JPG
Jpg.Assign(B);
// La Agregamos a PowerPDF
PRJpegImage1.Picture.Assign(jpg);
PRJpegImage1.Repaint;
PReport1.Print(PRPage1);
PRJpegImage1.Assign(nil);
B.FreeImage;
end;
// Terminamos nuestro Reporte PDF
PReport1.EndDoc;
B.free;
jpg.Free;
// Y Listo... Maravilloso.... ehhhh

end;

estoy usando los componentes powerpdf

gracias!!!

:)