Fórum Problemas com impressão - RAVE #188490

Olá pessoal estou tendo um probleminha chato aqui, estou usando o código abaixo para imprimir uma formulário de etiquetas como o modelo abaixo:

#

1




2




3




4



Para imprir apenas a etiqueta ´1´ estou usando o código abaixo no evento OnPrint do RvSystem:

procedure TFrmEti.RvSystem1Print(Sender: TObject);
var x : Array[1..2] of Double;
y : Array[1..3] of Double;
Mawb, Hawb, Orin, Dest, Numb, Gros : String;
begin
Mawb := Edit1.Text;
Hawb := Edit6.Text;
Orin := Edit2.Text;
Dest := Edit5.Text;
Numb := Edit3.Text;
Gros := Edit4.Text;

x[1]:= 0.3;
x[2]:= 6.1;

y[1]:= 3.5;
y[2]:= 5.2;
y[3]:= 7.1;

with Sender as TBaseReport, TLabel do
begin
FontSize := 12;
FontName := ´Arial´;
FontColor := clBlack;

GotoXY(x[1],y[1]);
Print(Mawb);

GotoXY(x[2],y[1]);
Print(Hawb);

GotoXY(x[1],y[2]);
Print(Orin);

GotoXY(x[2],y[2]);
Print(Dest);

GotoXY(x[1],y[3]);
Print(Numb);

GotoXY(x[2],y[3]);
Print(Gros);
end;

end;

Até ai tudo bem, só que quando eu acrescento um comando For para gerar as outras 3 etiquetas restantes, e mando o Rave executar o preview, ele não mostra todas a etiquetas como o modelo descrito no inicio, mas apenas a 1 etiqueta, e érea de impressão fica do tamanho da etiqueta 1, sendo que o certo era que a área de impressão ficasse do tamanho das 4 etiquetas, alguém teria alguma idéia de como aumentar a área de impressão?