Polansk

Bem a impressora é uma FX-1170, e eu quero aumentar o tamanho da fonte... qual a parte do codigo acima aumenta a fonte ? valeu...

olá amigos, queria uma ajuda sobre como aumentar o tamanho da fonte quando estou imprimindo direto para a impressora usando "WRITELN" ?? se alguém souber eu agradeço.

bem vo tentar explicar melhor ... atualmente o relatorio sai nesse formato abaixo : CLINICA são JOAO LTDA Paciente: fulano de tal Hospital: Memorial S. Fco. de Convenio: GEAP Servico : Tf Conc. Hemacias Quant : 1 data : 10/05/04 Quant. CH R$ 27020010 UNID DE CONCENTRADO DE HEMACIAS 1 65 14,30 27030059 HONORARIOS TRANSFUSIONAIS 1 30 6,60 27040046 ANTIGENO AUSTRALIA P/ COMP. HEMOTERAPICO 1 25 5,50 27040100 CHAGAS REACOES SOROL. P/COMP. HEMOTERAPI 1 30 6,60 27040151 GRUPO SANGUINEO E FATOR Rh 1 30 6,60 27040194 PESQUISA DE ANTICORPOS SERICOS IRREGULAR 1 40 8,80 27040216 PESQUISA ANTI HBC P/ COMP. HEMOTERAPICO 1 30 6,60 27040232 PESQUISA ANT. HIV III I/II P/ COMP. HEMO 1 75 16,50 27040240 PROVA DE COMPATIBILIDADE 1 30 6,60 Total do orcamento : 143,00 vo por o codigo aqui do : //////////////////////////////////////////////////////////////////////////////////////////////// WRITE (LST, PRN_40_216_polegada); WRITEln (LST, 'CLINICA são JOAO LTDA': 50); pula_linha(6); WRITEln (LST, 'Paciente: ', TAB_contasPACIENTE.asString); WRITEln (LST, 'Hospital: ', TAB_contasNomeHospital.asString); WRITEln (LST, 'Convenio: ',TAB_contasNomeConvenio.asString); WRITEln (LST, 'Servico : ', TAB_contasNomeServico.asString); quant_servicos := strtoInt(Papel_branco_servicos.text); WRITEln (LST, 'Quant : ', quant_servicos); WRITEln (LST, 'data : ', TAB_contasDATA_SERV.asString); pula_linha(4); WRITELN (LST, 'Quant.':55, 'CH':5, 'R$':13); que puxa o codigo do sql seguinte: SELECT contas."PEDIDO" , contas."ORDEM" , contas."CONVENIO" , contas."SERVICO" , convenio."Tabela_Pontos" , pontproc."Procedimento" , pontproc."Tipo_tabela" , pontproc."Pontos" , servproc."Servico" , servproc."Procedimento" , procedmt."Codigo" , procedmt."Descricao" , convenio."Numero" , convenio."Nome" , convenio."Coeficiente" , convenio."Tabela_Pontos" , procedmt."Abreviada", pontos_servicos."servico", pontos_servicos."Tipo_tabela", pontos_servicos."Pontos" pservico FROM "convenio.DB" convenio , "pontproc.DB" pontproc , "contas.DB" contas , "servproc.db" servproc , "procedmt.DB" procedmt, "pontserv.db" pontos_servicos WHERE ( contas.PEDIDO = :N_pedido) and ( contas.ORDEM = :N_ordem) and ( convenio.Numero = contas.CONVENIO ) AND ( convenio.Tabela_Pontos = pontproc.Tipo_tabela) AND ( pontproc.Procedimento = servproc.Procedimento ) AND ( procedmt.Codigo = servproc.Procedimento ) AND ( servproc.Servico = contas.SERVICO ) and ( pontos_servicos.servico = contas.SERVICO ) and ( pontos_servicos.Tipo_tabela = pontproc.Tipo_tabela) order by pontproc."Procedimento" //////////////////////////////////////////////////////////////////////////////////////////////// tipo to querendo por a logamarca da clinica no cabecalho do relatorio, tenho que por num qreport certo ? mas não sei como fazer se alguém puder me ajudar agradeco ... Valeu...

essa table é um TTable sim, quero por uma query tipo detalhe saca, pra quando eu selecioanar o paciente por exemplo ele me retorne atraves de uma consulta na query saca, pra fazer isso teria que por ela como detalhe não é? ?

ae tem como botar uma query como detalhe de uma table pra por em um relatorio? se tiver como me expliquem ae to precisando muito ... Valeu ...

ae tem uma skin pra delhi muito boa, tipo procura no google suiPACK e baixa esse pack tem uns efeitos muito massa ...

tipo to dando suporte a um programa que o cara pos um relatorio pra imprimir direto pra impresso +- assim : writeln('cabecalho e tal'); depois vem os dados e tal, queria saber se dar por um logotipo no cabeçalho do relatorio depois os textos normal ... valeu...