FortesReport: definir em tempo de execução a orientação
11/02/2008
0
procedure TFrmImprimir.RLReport1BeforePrint(Sender: TObject;
var PrintIt: Boolean);
begin
with FrmPrincipal do
if CmbBoxOrientacao.ItemIndex = 0 then
RLReport1.PageSetup.Orientation:= poPortrait
else
RLReport1.PageSetup.Orientation:= poLandscape;
end;
a mensagem que aparece é:
[Error] UFrmImprimir.pas(38): Undeclared identifier: ´poPortrait´
[Error] UFrmImprimir.pas(40): Undeclared identifier: ´poLandscape´
Hall 9000
Posts
11/02/2008
Hall 9000
Desconfiei que era alguma unit que faltava declarar, mas não consegui descobrir qual.
Valeu!
24/11/2022
Cícero Roberto
25/11/2022
Raimundo Pereira
// Essas aqui
RLTypes,RLReport,
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls ;
Neste caso o autor utilizou o combobox para indicar os paramentos de orientação da página.
Você pode manter o combobox ou gravar isso em um arquivo CONF.INI.
Usando o combobox:
Você adiciona os dois itens poPortrait e poLandscape
Antes da impressão você verifica qual item está preenchido .
Se colocar RLReport1 e um button e testar, verás que de acordo com o que seleciona no combobox a orientação da página mudará ao clicar no button.
case CmbBoxOrientacao.ItemIndex of
0:RLReport1.PageSetup.Orientation:=poPortrait;
1:RLReport1.PageSetup.Orientation:=poLandscape;
end;
Clique aqui para fazer login e interagir na Comunidade :)