Fórum Relatório Linha / Coluna #268674

você já tentou utilizar o fortes reporter.

tipo.... mas quero um pra fazer no modelo linha/coluna ,,, como era feito no clipper.

vi o rdprint.... mas é pago ... gostaria de algum naquele estilo só q free;

Caro amigo,

tenho o que voce precisa:

procedure Say(Nlin,Ncol: Integer;Var LinhaAtual: Integer; Var Arquivo: Text;Texto: Variant);

procedure Say(Nlin,Ncol: Integer;Var LinhaAtual: Integer; Var Arquivo: Text;Texto: Variant);
{Função para impressão de linhas em um relatório}
var
X: Integer;
begin
Write(Arquivo,#13);
If Nlin<>LinhaAtual then begin
for X :=LinhaAtual to (Nlin-1) do begin
WriteLn(Arquivo,´´);
LinhaAtual:=LinhaAtual+1;
end;
end;
If Ncol>0 then begin
For X:=0 to Ncol do begin
Write(Arquivo,´ ´);
end;
end;
If LinhaAtual >=63 then { 63 É O NÚMERO DA ÚLTIMA LINHA ANTES DO RODAPÉ} begin
For X:=63 to 67 do { 67 É A QUANTIDADE DE LINHAS POR PÁGINA } begin
Writeln(Arquivo,´´);
LinhaAtual:=1;
end;
end;
Write(Arquivo,Texto);
end;


OBS: a forma de como usar posto à tarde, pois tenho o exemplo em casa.

Atenciosamente,


Silvio Guedes

Colega,

Baixe e teste o VDOPrint -- http://devres.freeprohost.com -- e qualquer dúvida estou à disposição no fórum do projeto.

T+