Fórum VDOPrint - COlunas #283694

primeiro meus parabens ao Vinicius2K por esse componente, mto bom ! =)

eu postei essa duvida tbm la no forum do proprio VDOPrint,mas ja faz 2 dias e nao houve resposta e como o Vinicius falou q o forum estava passando por alguns problemas, resolvi postar aqui.

tenho esse botao de impressao:

procedure TFrm_Consulta.BitBtn2Click(Sender: TObject);
var
I: Integer;
Nome: array[0..5] of String;
Ende: array[0..5] of String;
Cep: array[0..5] of String;
Cidade: array[0..5] of String;
Estado: array[0..5] of string;
begin
VDODmPrinter1.BeginDoc;

while not DmCliente.IBQ.Eof do
begin

for I := 0 to 5 do
begin
Nome[I] := DmCliente.IBQ.FieldByName(´NOME´).AsString;
Ende[I] := DmCliente.IBQ.FieldByName(´ENDE´).AsString;
Cep[I] := DmCliente.IBQ.fieldbyname(´CEP´).AsString;
Cidade[I] := DmCliente.IBQ.FieldByName(´CIDADE´).AsString;
Estado[I] := DmCliente.IBQ.FieldByName(´ESTADO´).AsString;
DmCliente.IBQ.Next;
end;

with VDODmPrinter1 do
begin
font.Size:= fsCondensed;
Print(000, Nome[0]);
Print(060, Nome[1],true);
Print(001,´A/C: Depto. de Compras´);
Print(060,´A/C: Depto. de Compras´,true);
Print(000, Ende[0]);
Print(060, Ende[1],true);
NewLine(1);
Print(000, Cep[0]);
Print(060, Cep[1]);
Print(015, Cidade[0]);
Print(075, Cidade[1]);
Print(050, Estado[0]);
Print(100, Estado[1],true);
NewLine(1);
Print(000, Nome[3],true);
Print(001,´A/C: Depto. de Compras´,true);
Print(000, Ende[3],true);
NewLine(1);
Print(000, Cep[3]);
Print(015, Cidade[3]);
Print(050, Estado[3],true);
NewLine(1);
end;

end;

VDODmPrinter1.EndDoc;
end;

vcs podem ver q fiz com 3 registros,q eh o q tenho no meu Banco de Dados, mas qdo fiz com 2 colunas somente, ele so mostra os dois, num tem como automaticamente ele ir andando ???