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

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

utilizar form.print en reemplazo de form.preview

saludos
jgutti

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:

Código Delphi [-]

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