Print Preview

[StartKill]

Saludos Contravenno.

Probé tu código, muy buena la idea, funciona!!!.

Hay un pequeño inconveniente, me explico:

Imaginemos que el user hace su PrintPreview" de unas 12 paginas o mas, pero cuando esta en la 5ta pagina el user presiona el BOTONAZO cancelar/Cerrar (es un user arrependido de su Printpreview), entoces como consecuencia el evento "AfterPreview" no se ejecuta... y como no se ejecuta la variable tampoco

Bueno, voy implementar tu codigo que me será de mucha utilidad hasta encontrar otra solución. (gracias, no soy malagradecido)

Una Duda, hay forma de capturar el evento cuando se cierra el print-preview?, trate de hacerlo en el evento on-close pero del formulario que contiene el quieckreport, pero sin exito.

No es otra pregunta (foro no me critiquen), estoy tratando de buscar la solucion correcta a este problema

Muchas Gracias

Your friend

StartKill
Lima-Perú

PD: la version 4.07... ups!!! y pense que tenia la ultima de la version 4.?.?.?

[ContraVeneno]

Podrías cambiar del evento "AfterPreview", al evento "AfterPrint".

Fuera de esos dos eventos, no se me ocurre de que forma podrías darte cuenta de cuando cierran el "Preview". Lo ideal sería un "PreviewModal", pero como ya dijiste que eso no te sirve, pues...

saludos

[StartKill]

Por ContraVenenno:

Podrías cambiar del evento "AfterPreview", al evento "AfterPrint".

Fuera de esos dos eventos, no se me ocurre de que forma podrías darte cuenta de cuando cierran el "Preview". Lo ideal sería un "PreviewModal", pero como ya dijiste que eso no te sirve, pues...

Nop, Nop ,Nop...90h, 90h, 90h , recordemos que el user no termina de hacer el printpreview, "lo cancela" por consecuancia no se ejecuta ninguno de los eventos mencionados.

Your friend
StartKill
Lima-Perú

[[Lepe]]

En el foro hay un método para detectar la vista preliminar de QuickReports, y en el hilo se hablaba de deshabilitar botones de esa presentación preliminar. Lástima que no recuerde como encontrar el hilo.

Otra forma sería haciendo tú mismo tu presentación preliminar, y allí sí tendrías oportunidad de hacer lo que quisieras. En este hilo se habla algo


Saludos

[[Héctor Randolph]]

Supongo que Lepe se refiere a este hilo.

Seguramente por medio de la interfase TQRStandardPreview puedes acceder al método OnClose de la forma.

Saludos

[[Héctor Randolph]]

Aquí les dejo el código de una pequeña prueba que hice. Coloqué un reporte y un botón dentro del formulario. La idea es capturar el evento que se genera al cerrar la vista previa.

Código Delphi [-]
type
  TForm1 = class(TForm)
    QuickRep1: TQuickRep;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
  private
    { Private declarations }
     procedure CerrarPreview(Sender: TObject; var Action: TCloseAction);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
 I: Integer;

begin
  for I:=0 to Screen.FormCount-1 do
  begin
    if Screen.Forms[i].ClassName='TQRStandardPreview' then
    begin
      Screen.Forms[i].OnClose:=CerrarPreview;
    end;
  end;
end;

procedure TForm1.CerrarPreview(Sender: TObject; var Action: TCloseAction);
begin
  ShowMessage('Se cerró el formulario de la vista previa.');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  QuickRep1.Preview;
end;

end.

Saludos

[keyboy]

¿Y si usan a la misma ventana del preview como variable "booleana"?

Código Delphi [-]
function IsPreviewActive: Boolean;
var
  I: Integer;

begin
  Result := false;

  for I := 0 to Screen.FormCount - 1 do
    if Screen.Forms[i].ClassName = 'TQRStandardPreview' then
    begin
      Result := true;
      break;
    end;
end;

Así, al hacer el preview sólo tienen que examinar el valor de la función:

Código Delphi [-]
if IsPreviewActive then
  ShowMessage('Ya hay una vista preliminar activa')
else
  QuickRep1.Preview;

Bye