Relatório Linha / Coluna
Gostaria de saber de componentes pra impressão matricial e que funcionem no modelo linha / coluna.... se possivel q seja parecido com a logistica utilizada no antigo clipper.
se tiver preview ou como faze-lo melhor ainda...
Se possivel que tenha exemplos...
Me paresse que o rave faz isso através do rvsystem .... se alguem tiver algum exemplo de como utiliza-lo....
grato
Guilherme
se tiver preview ou como faze-lo melhor ainda...
Se possivel que tenha exemplos...
Me paresse que o rave faz isso através do rvsystem .... se alguem tiver algum exemplo de como utiliza-lo....
grato
Guilherme
Guibas
Curtidas 0
Respostas
Sremulador
15/02/2005
você já tentou utilizar o fortes reporter.
GOSTEI 0
Guibas
15/02/2005
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;
vi o rdprint.... mas é pago ... gostaria de algum naquele estilo só q free;
GOSTEI 0
Silviogs
15/02/2005
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
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
GOSTEI 0
Vinicius2k
15/02/2005
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;
Colega,
Baixe e teste o VDOPrint -- http://devres.freeprohost.com -- e qualquer dúvida estou à disposição no fórum do projeto.
T+
GOSTEI 0