Rave - Nova Coluna não aparece!
30/11/2005
0
Olá...
estou criando um relatorio que imprime em [b:c82602e346]3 COLUNAS[/b:c82602e346]...
mas só a primeira coluna aparece... depois ele muda de pagina...
[color=red:c82602e346]oq estou fazendo errado??[/color:c82602e346]
estou criando um relatorio que imprime em [b:c82602e346]3 COLUNAS[/b:c82602e346]...
mas só a primeira coluna aparece... depois ele muda de pagina...
[color=red:c82602e346]oq estou fazendo errado??[/color:c82602e346]
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
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)