FortesReport: definir em tempo de execução a orientação

11/02/2008

0

Estou usando o gerador de relatórios FortesReport e estou com um problema. Preciso definir em tempo de execução a orientação do relatório, ou seja, retrato ou paisagem. O erro está aparecendo no código abaixo:
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

Hall 9000

Responder

Posts

11/02/2008

Steve_narancic

declare no uses [b:5c7d4ba545]RLTypes[/b:5c7d4ba545]


Responder

11/02/2008

Hall 9000

Muito obrigado steve.. matou a charada.
Desconfiei que era alguma unit que faltava declarar, mas não consegui descobrir qual.
Valeu!


Responder

24/11/2022

Cícero Roberto

declare no uses [b:5c7d4ba545]RLTypes[/b:5c7d4ba545]


qual é a uses?
Responder

25/11/2022

Raimundo Pereira

uses
// 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;
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar