Desabilitar control de Impresión de la vista previa del QuickReport

[santi33a]

Alguien sabe como desabilitar el boton de imprimir en la vista previa del QuickReport, yo no uso el quickReport pero me lo preguntó un amigo que no tiene internet y quisiera ayudarlo.
GRacias

[jgutti]

utilizar form.print en reemplazo de form.preview

saludos
jgutti

[cloayza]

Otra alternativa es que crees tu propio visualizador de informes, es muy sencillo:

Debes colocar en un form el componente TQRPreview.

Ahora el codigo:

Supongamos que tu informes se llama QuickRep1 y nuestro componente de visualizacion es QRPreview1.

Esto es lo que debes hacer:



procedure TForm1.cmdOpenReportClick(Sender: TObject);
begin
//Visualizar el reporte.
QuickRep1.Preview;
end;

procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
//Asignar la visualizacion del reporte a QRPreview1.
QRPreview1.QRPrinter:=TQRPrinter(Sender);
end;

procedure TForm1.cmdPrintSetupClick(Sender: TObject);
begin
//Llama al metodo para configurar la impresora.
QRPreview1.QRPrinter.PrintSetup;
end;

procedure TForm1.cmdFirstPageClick(Sender: TObject);
begin
//Va a la primera pagina del informe
QRPreview1.PageNumber:=1;
end;

procedure TForm1.cmdLastPageClick(Sender: TObject);
begin
//Va a la ultima pagina del informe
QRPreview1.PageNumber:=QRPreview1.QRPrinter.PageCount;
end;

procedure TForm1.cmdPrevPageClick(Sender: TObject);
begin
//Va a la pagina anterior
QRPreview1.PageNumber:=QRPreview1.PageNumber-1;
If (QRPreview1.PageNumber<0) Then
QRPreview1.PageNumber:=1;
end;

procedure TForm1.cmdNextPageClick(Sender: TObject);
begin
//Va a la pagina siguiente
If (QRPreview1.PageNumber+1>=QRPreview1.QRPrinter.PageCount) Then
QRPreview1.PageNumber:=QRPreview1.PageNumber+1;

end;

procedure TForm1.cmdPrintClick(Sender: TObject);
begin
//Imprime el informe.
QRPreview1.QRPrinter.Print;
end;



Es un metodo muy sencillo para visualizar los informes Quicreport, el cual tu puedes personalizar y darle la forma que desees.

Saludos