Array
(
)

Rave - Nova Coluna não aparece!

Nettopassaro
   - 30 nov 2005

Olá...

estou criando um relatorio que imprime em 3 COLUNAS...

mas só a primeira coluna aparece... depois ele muda de pagina...

oq estou fazendo errado??



Citação:
procedure TfrmEtiPrat.rsEtiPratPrintHeader(Sender: TObject);
Var VLinha : Integer;
begin
With Sender As TBaseReport Do
Begin
MarginTop:= 1.0;
LineHeight:= 1.2;
VLinha:= 0;
SetColumns(3, 0.75);
SetColumnWidth(6.5, 0.75);
while not dataProdutos.eof do
begin
cleartabs;
SetFont(´Arial´, 5);
Bold:= true;
MarginLeft:= 0.5;
Print(dataProdutosLOCAL.Value);
MarginLeft:= 0.1;
NewLine;
SetFont(´Arial´, 3);
ClearColumns;
Print(IntToStr(dataProdutosID.Value) + ´ - ´ + dataProdutosDESCRICAO.Value);
NewLine;
NewLine;
VLinha:= VLinha + 1;
If VLinha = 20 then
begin
NewColumn;
VLinha:= 0;
end;
If ColumnNum = 3 then
begin
NewPage;
VLinha:= 0;
ColumnNum:= 1;
end;
dataProdutos.Next;
end
end;
end;



Nettopassaro
   - 01 dez 2005

alguem????