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