Consegui o que eu queria fazendo o seguinte:
if (FNFIndex>0) and (FNumNFe=-1) then
begin
// antes de criar nova página, trocar a orientação de acordo com tpImp do XML
case FACBrNFe.NotasFiscais.Items[FNFIndex].NFe.Ide.tpImp of
tiPaisagem:
Orientation:=poLandScape;
tiRetrato:
Orientation:=poPortrait;
end;
NewPage;
// solução
FLastX:=BaseReport.PageWidth-SystemPrinter.MarginRight;
FLastY:=BaseReport.PageHeight-SystemPrinter.MarginBottom;
end;
if Orientation=poLandScape then
ImprimirPaisagem(Self)
else
ImprimirRetrato(Self);
Ainda deixo em aberto a minha dúvida sobre a possibilidade de o componente fazer essa troca de orientação da página automaticamente, conforme a tag tpImp.
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.