Cara.. até seria, se desta forma a impressão não
perdesse a parte visual... do relatorio!!
Mas valeu mesmo a dica..
Se alguém souber mais alguma coisa..
Desde já... fico grato!
Junior
--- Atendimento - BG on-line <[EMAIL PROTECTED]>
escreveu:
> Cara.. nao sei se era bem isso que vc precisava....
> Para impressão matricial utilizo a impressão direto
> para a porta da impressora LPT1
>
>
>
>
>
>
> procedure TNotaFiscal.BitBtn2Click(Sender: TObject);
> Var F :TextFile;
> Imprimir, LINHA1, LINHA2, LINHA3, LINHA4,
> LINHA5, LINHA6, LINHA7, LINHA8 : String;
> LINHA9, LINHA10, LINHA11, LINHA12 : String;
> Cont : Integer; VFor : Integer;
> begin
>
>
> AssignFile(F,impressora.lines[0]);
> //impressora.lines[0] = LPT1 ou LPT2
> ReWrite(F);
>
> WriteLN(F,' ');
> WriteLN(F,' ');
> WriteLN(F,' ');
> WriteLN(F,' ');
> WriteLN(F,' ');
> WriteLN(F,' ');
> WriteLN(F,' ');
>
> Imprimir := Space(61) + Copy(WEmissao.Text,1,2) +
> Space(4) + Copy(WEmissao.Text,4,2) +
> Space(3) + Copy(WEmissao.Text,7,4);
> WriteLN(F,imprimir);
>
> WriteLN(F,' ');
> WriteLN(F,' ');
> WriteLN(F,' ');
>
> Imprimir := WCodigo.Text + Space(3) +
>
>
Space(11-Length(Alltrim(format('%n',[StrToFloat(WValor.Text)]))))
> + AllTrim(format('%n',[StrToFloat(WValor.Text)])) +
> Space(5) +
> WCodigo.Text + Space(5) +
> WVencimento.Text;
> WriteLN(F,Imprimir);
>
> WriteLN(F,' ');
>
> Imprimir := Space(6) +
>
Space(8-Length(AllTrim(format('%n',[StrToFloat(WDesconto.Text)]))))
> + AllTrim(format('%n',[StrToFloat(WDesconto.Text)]))
> +
> Space(6) +
>
Space(9-Length(AllTrim(format('%n',[StrToFloat(WReais.Text)]))))
> + AllTrim(format('%n',[StrToFloat(WReais.Text)])) +
> Space(4) + Alltrim(Wate.Text);
> WriteLN(F,Acentos(Imprimir));
>
> WriteLN(F,' ');
> Imprimir := Space(13) + AllTrim(Wcondicoes.Text);
> WriteLN(F,Acentos(Imprimir));
>
> WriteLN(F,' ');
>
> Imprimir := Space(12) + AllTrim(WSacado.Text);
> WriteLN(F,Acentos(Imprimir));
> WriteLN(F,' ');
>
> Imprimir := Space(12) + AllTrim(WEndereco.Text);
> WriteLN(F,Acentos(Imprimir));
> WriteLN(F,' ');
> WriteLN(F,' ');
>
> Imprimir := Space(12) + AllTrim(WCidade.Text) +
> Space(26-Length(Alltrim(Wcidade.Text))) +
> Space(8) + AllTrim(WEstado.Text) +
> Space(13-Length(Alltrim(WEstado.Text))) +
> Space(7) + WCep.Text;
> WriteLN(F,Acentos(Imprimir));
> WriteLN(F,' ');
>
> Imprimir := Space(12) + AllTrim(WPraca.Text);
> WriteLN(F,Acentos(Imprimir));
> WriteLN(F,' ');
>
> Imprimir := Space(12) + AllTrim(WCPF.Text) +
> Space(34-Length(Alltrim(WCPF.Text))) +
> Space(9) + Alltrim(WInsc.Text);
> WriteLN(F,Acentos(Imprimir));
> WriteLN(F,' ');
>
> Imprimir := Extenso(StrToFloat(WValorTotal.Text));
> If Length(Imprimir) <= 63 Then Begin
> Linha1 := Imprimir; Linha2:= ' '; Linha3 := ' ';
> End
> Else
> Begin
> Linha1:=Corta(63,Imprimir,Linha2);
> Linha2:=AllTrim(Linha2) + ' ' +
> copy(Imprimir,64,Length(imprimir)-63);
> If Length(Linha2) > 63 Then Begin
> Linha2:=Corta(63,Linha2,linha3);
> End;
>
>
> End;
>
> WriteLN(F,Space(13) + Acentos(LINHA1));
> WriteLN(F,Space(13) + Acentos(LINHA2));
> WriteLN(F,Space(13) + Acentos(LINHA3));
>
> WriteLN(F,' ');
> WriteLN(F,' ');
> WriteLN(F,' ');
> WriteLN(F,' ');
> WriteLN(F,' ');
> WriteLN(F,' ');
>
> //impressão da descrição dos serviços
>
> MemoAjuste.Text := WDescricao.Text + Space(50) +
> Space(50) + Space(50) +
> Space(50) + Space(50) +
> Space(50) + Space(50) + Space(50) +
> Space(50) + Space(50) +
> Space(50) + Space(50) + Space(50) ;
>
> WriteLN(F,Acentos(MemoAjuste.Lines[0]));
> WriteLN(F,Acentos(MemoAjuste.Lines[1]));
> WriteLN(F,Acentos(MemoAjuste.Lines[2]));
> WriteLN(F,Acentos(MemoAjuste.Lines[3]));
> WriteLN(F,Acentos(MemoAjuste.Lines[4]));
> WriteLN(F,Acentos(MemoAjuste.Lines[5]));
> WriteLN(F,Acentos(MemoAjuste.Lines[6])+ Space(6) +
>
AllTrim(format('%n',[StrToFloat(WValorTotal.Text)])));
> WriteLN(F,Acentos(MemoAjuste.Lines[7]));
> WriteLN(F,Acentos(MemoAjuste.Lines[8]));
> WriteLN(F,Acentos(MemoAjuste.Lines[9]));
> WriteLN(F,Acentos(MemoAjuste.Lines[10]));
> WriteLN(F,Acentos(MemoAjuste.Lines[11]));
>
>
>
>
>
>
> { WriteLN(F, #12); //Ejeta a página }
> CloseFile(F);
> end;
>
>
>
>
> ----- Original Message -----
> From: Luiz Carlos
> To: Delphi Br ; Delphi Total ; Rave Reports
> Sent: Monday, September 04, 2006 2:09 PM
> Subject: [delphi-br] Impressão Rave - Matricial -
> AJUDA
>
>
> Boa Tarde..
>
> Estou tentando fazer com que um relatorio seja
> impresso numa impressora matricil, mas não estou
> conseguindo... procurei diversas informações a
> respeito do assunto e a unica coisa que encontro e
> este codigo abaixo; porem quando insiro o mesmo na
> minha aplicação não obtenho resultado esperado, na
> verdade.. o relatorio não é impresso. será que
> estou
> fazendo algo de errado!?!? ou tem mais alguma
> outra
> configuração a ser feita!!! alguém já conseguiu
> imprimir desta maneira!?!? poderiam me ajudar!!!
>
>
> Obrigado!!
>
> Junior - Araraquara
>
> //**********codigo encontrado*****************
>
> System.DefaultDest := rdFile;
> System.DoNativeOutput := false;
> System.RenderObject := RvRenderText1;
> System.OutputFileName := 'LPT1';
> System.SystemSetups :=
> DM_RELAT.System.SystemSetups -
> [ssAllowSetup];
>
> // Execute the report
> RvProject1.ExecuteReport('NOME_RELATORIO');
>
>
>
>
>
_______________________________________________________
>
>
=== message truncated ===
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
o discador agora!
http://br.acesso.yahoo.com
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
