Cupom não fiscal

[robinhocne]

Boa noite.....

Pessoal fiz um programinha para pegar um txt e mandar para uma impressora USB não fiscal... porém estou usando o fastReport e já tentei no QuickReport....pego o txt e acrescento linha a linha em um mesmo do FastReport e mando um print direto na impressora....porém quando o cupom é pequeno...sai um monte de espaço no fim dele....quando o cupom é grande...corta o fim.... não consigo deixar o tamanho de acordo com o tamanho do cupom....

tem como imprimir assim pelo FastReport ou Quick ?

[Jhonas]

Se for usar o quick report , defina o tamho do papel como Custom Size e de as medias que voce pretente usar

monte o relatorio e imprima

abraço

[robinhocne]

otimo Jhonas deu certo....só mas uma pergunta...estou colocando no QRRichText... tenho como imprimir em negrito algumas linha tipo assim ?

RAZAO SOCIAL DA EMPESA

ENDERECO

CIDADE - B.H MINAS GERAIS

CNPJ: 00.000.000/0000-00

IE: 000.5465465.3212

------------------------------------------------

11/10/2013 13:35:49 CNF:350714 COD:503297

------------------------------------------------

CUPOM não FISCAL

ITEM CODIGO DESCRIÇÃO

QTD. UN. VL.UNIT(R$) ST VL ITEM(R$)

------------------------------------------------

01 7898939332407 CASTANHA DE CAJU SL

2 UN 8,98 A 17,96

02 7891700019880 MAIONESE ARISCO

250Kg UN 3,29 A 3,29

03 2000000023455 MACA NAC. VERMELHA

1.430 KG x 2,98 A 4,26

02 7891700019880 MAIONESE ARISCO

250Kg UN 3,29 A 3,29

03 2000000023455 MACA NAC. VERMELHA

1.430 KG x 2,98 A 4,26

02 7891700019880 MAIONESE ARISCO

250Kg UN 3,29 A 3,29

03 2000000023455 MACA NAC. VERMELHA

1.430 KG x 2,98 A 4,26

------------------------------------------------

TOTAL R$ 25,51

DINHEIRO 30,00

TROCO R$ 4,49

------------------------------------------------

OP: 25414 MARIA MARIA DA SILVA

PARA TROCA/DEVOLUCAO DE MERCADORIAS E

OBRIGATORIO APRESENTACAO DESTE CUPOM.

-------------------------------------------------

DADOS DE ENTREGA: HORARIO: DE 17:00 AS 21:00

NOME: MARIA MARIA SILVA

RUA MARIAS, 150 - MARIAS

FONE:(31)0000-0000 - BELO HORIZONTE - MG

-------------------------------------------------

[Jhonas]

veja se essas dicas te ajudam

with RichEdit1.SelAttributes do
if fsBold in Style then
Style := Style - [fsBold]
else
Style := Style + [fsBold];

http://www.devmedia.com.br/forum/problema-com-qrrichtext/235838

http://www.devmedia.com.br/forum/duvida-formatar-richtext-bold-italic-etc/366012

http://www.planetadelphi.com.br/dica/4583/-como-adicionar-uma-linha-formatada-%28cor,-negrito,-etc%29-num-richedit

http://www.delphipages.com/forum/showthread.php?t=101774

http://www.codeproject.com/Questions/116476/How-to-change-font-Bold-and-italic-of-richtext-box

https://www.scriptbrasil.com.br/forum/topic/151781-resolvidotexto-modelo/

https://www.scriptbrasil.com.br/forum/topic/147910-duvida-destacando-palavras/

https://www.scriptbrasil.com.br/forum/topic/147910-duvida-destacando-palavras/#entry583811

abraço

[FABIO-2012]

Oi amigo, Boa tarde!

Eu vi seu post e lhe aconselho a não usar quickreport faça diferente mende diretamente para impressora assim a impressão será mais rapida e funcionará em todas as impressoras.

Copie o código abaixo em um button e teste ai é só inserir seu bd e ir mudando ao seu gosto ficará bem melhor

var
Cup: TextFile;
begin
    AssignFile(Cup,form26.DBEDIT5.Text);  <====// Aqui eu coloquei um DBEDIT porque linkei à um campo que criei em meu bd chamado PORTA ai se a impressora for COM1 COM2 OU LPT1 USB ETC... EU SÓ SALVO NO CAMPO e não preciso ficar editando diretamente no código toda vez que pegar uma impressora diferente //
    Rewrite(Cup);
    Writeln(Cup,'');
    Writeln(Cup,           datamodule1.Qregfantasia.Text);
    Writeln(Cup,       'CNPJ'+ datamodule1.QregCNPJ.Text);
    Writeln(Cup,'  '+'Caixa'+' '+datamodule1.QLoginusuario.Text);
    Writeln(Cup,'  '+'Tel:'+'  '+datamodule1.Qregtelefone.Text+' '+'Fax:'+' '+datamodule1.QregTel1.Text);
    Writeln(Cup,'  '+'End:'+'  '+ datamodule1.Qregendereo.Text+'  ' +'N,'+' '+ datamodule1.Qregnumero.Text);
    Writeln(Cup,'  '+'Cupom n,'+' '+datamodule1.QDatacod_venda.Text);
    Writeln(Cup,'  '+'Cliente:'+'  '+datamodule1.QDataCliente.Text);
    Writeln(Cup,'  '+'CNPJ/CPF:'+' '+datamodule1.QDatacpfcnpj.Text);
    Writeln(Cup,'  '+ 'Data.: ' + DateToStr(date) + ' '+'Hora.: ' + TimeToStr(Time));
    writeln(cup,'  '+'  '+dbedit8.Text);
    Writeln(Cup,'----------------------------------------');
    Writeln(Cup, 'Codigo');
    Writeln(Cup, 'Produto  Quant.  Pr. Unit.    Pr. Total');
    Writeln(Cup,'----------------------------------------');
    Writeln(Cup,'');
    datamodule1.QVenda.First;
While not datamodule1.QVenda.Eof do
begin
    Writeln(Cup, datamodule1.QVendacodigo_barras.Text);
    Writeln(Cup, datamodule1.QVendadescricao.Text);
    Writeln(Cup, '   '+ datamodule1.QVendaquant.Text +'X   '+ datamodule1.QVendavalorUnit.Text + '        '+ datamodule1.QVendavalorTotal.Text);
    datamodule1.qvenda.Next;
end;
    Writeln(Cup,'---------------------------------------');
    Writeln(Cup,'         '+'TOTAL:'+' '+'R$:'+' '+datamodule1.QSumgeralgrid.Text);
    Writeln(Cup,'');
    Writeln(Cup,'');
    Writeln(Cup,'');
    Writeln(Cup,'');
    Writeln(Cup,'');
    Writeln(Cup,'');
    Writeln(Cup,'');
    Writeln(Cup,'');
    CloseFile(Cup);
end;

Editado Novembro 6, 2013 por FABIO-2012

[djfarinha]

Eu uso um componente chamado RDPRINT muito bom