Rave - Nova Coluna não aparece!

30/11/2005

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]


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

Respostas

01/12/2005

Nettopassaro

alguem????


Responder Citar