GARANTIR DESCONTO

Fórum PROBLEMA Delphi com Rave Impmir em matricial #336511

19/01/2007

0

Olá pessoa. o problema é o seguinte:
Estou tentando imprimir em uma impressoa matricial usando o delphi 2006 com o componente RvRenderText da paleta de componentes RAVE Reports bom! Imprimir, imprime, só que imprime alguamas linha sobre outras tipo:
CODIGO NOME EMAIL
0000001 João dos Santos joao@santos.com.br
0000002 João da Silva joao@silva.com.br
0000003 José dos Santos jose@santos.com.br
0000004 José da Silva josé@silva.com.br
0000005 Maria da Silva maria@silva.com.br
0000006 Maria dos Santos maria@santos.com.br

O ´000000004´ é impresso sobre o 5 e assim a cada 5 ou 8 registros impressos, é como se não existisse a quebra de linha, porém na visualização do relatório pelo preview do rave tá tudo normal
O mesmo problema ocorre quando o arquivo ao invés de ser mandado diretamente para a impressora é saldo num arquvio de texto, só que ao invés de imprimir em cima (que naum tem como) o registro fica após o último caracter do registro anterior além de exibir um caracter quadrado veja:

Código Descrição
1 PAGAMENTOSEFETUADOSN/DATA
2
3 PAGTO
PAGTO.DEPOSITO
CONF.NOTAFISCAL
N/DATA
4 PAGTO.FRETECF.RECIBO
5 PG.DUPLICATANR.
6 PAGTO.DESPESASCONFORMEDOC.NR
7 PG.CONFFATURA

Se alguém já passaou por isso ou sabe como resolver dá uma ajuda ai.
se tiver que configurar alguma coisa nos componetes e etc.

estou usando o seguinte código:

RvSystem1.DefaultDest := rdFile;
RvSystem1.DoNativeOutput := false;
RvSystem1.RenderObject := RvRenderText1;
RvSystem1.OutputFileName := ´\\10.0.0.1\Lx300´;
RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];

RvProject1.ExecuteReport(´Report1´);


Delphijean

Delphijean

Responder

Posts

22/01/2007

Delphijean

Vamos lá galera alguém já deve ter passado por isso. ajuda ai.


no aguardo.


Responder

Gostei + 0

23/01/2007

Delphijean

ajuda ai pessoal....


...........................


Responder

Gostei + 0

25/01/2007

Paulorsa

Eu uso somente o RvSystem.


procedure TfmCotacao.RvSystem2Print(Sender: TObject);
var
i: integer;
begin
i:=0;

with Sender as TBaseReport do
begin
PrintData(Chr(27)+´@´); // Inicializa impressora
PrintData(´ ´+Chr(13)+Chr(10));
PrintData(Chr(27)+´E´); // Inicia Negrito

PrintData(Trim(Copy(sEmpresa,1,48)));
PrintData(´ ´+Chr(13)+Chr(10));

PrintData(´CNPJ: ´+sCNPJ_Emp);
PrintData(´ I.E.: ´+sIncr_Est_Emp);
PrintData(´ ´+Chr(13)+Chr(10));

PrintData(sEnd_Emp);
PrintData(´ - ´+Trim(Copy(sCidade_Emp,1,48))+´ / ´+sUf_Emp);
PrintData(´ ´+Chr(13)+Chr(10));

PrintData(´CEP: ´+sCEP_Emp);
PrintData(´ Loja: ´+Trim(cbxLoja.Text));
PrintData(´ ´+Chr(13)+Chr(10));

PrintData(´Fone: ´+sFone_Emp);
PrintData(´ Fax: ´+sFax_Emp);
PrintData(´ ´+Chr(13)+Chr(10));


PrintData(Chr(14)); // Inicia Expandido
PrintData(´ COTACÃO - Nr ´+edtCod.Text);
PrintData(Chr(20)); // Finaliza Expandido
PrintData(´ ´+Chr(13)+Chr(10));

PrintData(´Emissao: ´+edtDt_Emissao.Text);
PrintData(´ ´+Chr(13)+Chr(10));

PrintData(´CLIENTE:´);
PrintData(´ ´+Chr(13)+Chr(10));

PrintData(Chr(27)+´F´); // Finaliza Negrito
end;
end;

Usando o PrintData não é possivel visualizar a impressão.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar