utlrasen.tato
Aprendiz
Registrado: Quarta-Feira, 11 de Janeiro de 2012
Mensagens: 112
Localização: jundiai-sp
|
 Enviada: Ter Set 18, 2012 10:17 pm Assunto: impressao em impressoras de cupom |
 |
|
bom dia pessoal
sou iniciante e estou com duvidas para expandir e centralizar meu conteudo na impressora mecaf 40 colunas nao fiscal, ja busquei algumas dicas na net, mas nao to conseguindo resolver, alguem poderia me ajudar!
segue procedure>
| Código: | f:TextFile;
texto,rodape,impressora:string;
imp:string;
cliente,endereco,bairro,fone,cidade,equip,marca,def_inf,obs:string;
Begin
If Application.MessageBox('Tem certeza que deseja Imprimir cupom?', 'Aviso', mb_yesno + mb_defbutton2) = idYes then
Begin
saltoi:=FRM_Ordem.DS_IMPSALTOINI.asinteger;
qr_imp.Close;
DS_IMP.Close;
qr_imp.SQL.Text:=('select * From Impressao');
qr_imp.ExecSQL(true);
DS_IMP.Open;
texto:=texto+#13+#10+ DS_imp.fieldbyName('empresa').AsString;
texto:=texto+#13+#10+ DS_imp.fieldbyName('endereco').AsString+' '+'No. - '+DS_imp.fieldbyName('NRO').AsString;
texto:=texto+#13+#10;
texto:=texto+#13+#10+ DS_imp.fieldbyName('cabecalho').AsString;
texto:=texto+#13+#10+(' ----------------')+#13+#10;
impressora:=DS_IMP.fieldbyname('IMPRESSORA_NF').AsString ;
rodape:=DS_IMP.fieldbyName('promo1').AsString;
rodape:=rodape+#13+#10+ DS_IMP.fieldbyName('promo2').AsString;
BEGIN
AssignFile(F,impressora);
Rewrite(F);
Writeln(F,'');
End;
Writeln(F,texto);
Writeln(F,'No. OS - '+Dm_BD.DS_ORDEM.fieldbyName('N_OS').AsString+' '+'DATA - '+Dm_BD.DS_ORDEM.fieldbyName('DATA').AsString+#13+#10);
Writeln(F,'Cliente - '+Dm_BD.DS_ORDEM.fieldbyName('CLIENTE').AsString+#14);
Writeln(F,'Endereco - '+Dm_BD.DS_ORDEM.fieldbyName('endereco').AsString+' '+'Nro. - '+Dm_BD.DS_ORDEM.fieldbyName('nro').AsString+#13);
Writeln(F,'Bairro - '+Dm_BD.DS_ORDEM.fieldbyName('BAIRRO').AsString+#13);
Writeln(F,'CIDADE - '+Dm_BD.DS_ORDEM.fieldbyName('CIDADE').AsString+' '+'Est. - '+Dm_BD.DS_ORDEM.fieldbyName('UF').AsString+#13);
Writeln(F,'----------------------------------------');
Writeln(F,'Equipamento - '+Dm_BD.DS_ORDEM.fieldbyName('equipamento').AsString+#13);
Writeln(f,'Modelo - '+Dm_BD.DS_ORDEM.fieldbyName('modelo').AsString+#13);
Writeln(F,'Marca - '+Dm_BD.DS_ORDEM.fieldbyName('marca').AsString+#13);
Writeln(F,'Defeito '+Dm_BD.DS_ORDEM.fieldbyName('def_inf').AsString+#13+#10);
Writeln(F,'OBS.: - '+Dm_BD.DS_ORDEM.fieldbyName('obs').AsString+#27+#13+#10);
saltof:=FRM_Ordem.DS_IMPSALTOFIM.asinteger;
END;
CloseFile(f); |
obrigado, galera |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
