imprimir negrito em daruma ñ fiscal e lpt !

[acma88 0]

Boa noite pessoal, tenhu q deixar alguns topicos na impressão em negrito, como posso fazer??o código fonte tah assimmDim n As Stringn = FreeFile()Open "lpt1:" For Output As #n'Print #n, " * INFORMACOES DO CLIENTE * "Print #n, lbl_razao.CaptionPrint #n, "______________________________"Print #n, " -- RAZAO SOCIAL DO CLIENTE --"Print #n, razao.TextPrint #n, " * INFORMACOES DA IMPRESSORA * "Print #n, "______________________________"Print #n, " -- FABRICANTE DO ECF -- "Print #n, fab_imp.TextPrint #n, " --- MODELO DO ECF --- "Print #n, model_ecf.TextPrint #n, " -- N. SÉRIE ECF -- "Print #n, numero_ecf.TextPrint #n, " -- CNPJ DOS LACRES RETIRADOS -- "Print #n, cnpj_retirado.TextPrint #n, " * LACRES * "Print #n, " -- LACRES INTERNOS ANTERIORES A INTERVENCAO -- "Print #n, "_______________________________"Print #n, " LACRE LATERAL "Print #n, lac_lat_ant.TextPrint #n, " LACRE TRASEIRO "Print #n, lac_tras_ant.TextPrint #n, " LACRE FRONTAL "Print #n, front_post.TextPrint #n, " -- LACRES INTERNOS POSTERIORES A INTERVENCAO -- "Print #n, "________________________________"Print #n, "LACRE LATERAL"Print #n, lac_lat_pos.TextPrint #n, "LACRE TRASEIRO"Print #n, lac_tras_pos.TextPrint #n, "LACRE FRONTAL"Print #n, front_post.TextPrint #n, " -- INFORMACOES SOBRE SELOS/LACRES INTERNOS ANTERIORES -- "Print #n, " _______________________________"Print #n, " SELO MFD "Print #n, selo_mfd_ant.TextPrint #n, "SELO EPRON"Print #n, selo_epron_ant.TextPrint #n, "SELO FLAT"Print #n, selo_flat_ant.TextPrint #n, "SELO PLACA"Print #n, selo_placa_ant.TextPrint #n, "LACRE SOFT. BASICO "Print #n, lac_soft_anterior.TextPrint #n, "LACRE MFD"Print #n, lacre_mfd_ant.TextPrint #n, "MFD"Print #n, mfd_ant.TextPrint #n, " -- INFORMACOES SOBRE SELOS/LACRES INTERNOS ANTERIORES -- "Print #n, "_________________________________"Print #n, " SELO MFD "Print #n, selo_mfd_post.TextPrint #n, "SELO EPRON"Print #n, selo_epron_post.TextPrint #n, "SELO FLAT"Print #n, selo_flat_post.TextPrint #n, "SELO PLACA"Print #n, selo_placa_post.TextPrint #n, "LACRE SOFT. BASICO "Print #n, lac_soft_post.TextPrint #n, "LACRE MFD"Print #n, lacre_mfd_post.TextPrint #n, "MFD"Print #n, mfd_pos.TextPrint #n, " -- MOTIVO DA INTERVENCAO -- "Print #n, Text1.TextPrint #n, " -- TECNICO RESPONSAVEL -- "Print #n, Text2.TextPrint #n,Print #n,Print #n,Close #nEnd SubNo caso, os que tem texto normal, seriam os q tem q ficar em negritoObrigado desde já, Rodrigo

[acma88 0]

pessoal, postem aew !!deve ser simples issp =P

[scorpio 7]

nao sei se da certo..ja tento coloca no richtextbox, negrita o texto todo e manda imprimi do richtextbox ??acho q essa minha opnião não seja viavel, pois vai dar muito trabalho.. e nem sei se vai funcionarmas tenta aeflwabraços

[acma88 0]

§¢ö®Þ¡ö, bom dia !cara, num intendi bem o que quis me dizer, porem ja fiz a seguinte tentativainvés de colocar o topico direto no print, coloquei por exemplo, "lbl_marca.caption"cujo nas propriedades, tem definidas q ela sera negrito, porem a impressora naum consegue imprimir negrito, ela imprimi com letras normais !Grato desde já, Rodrigo

[scorpio 7]

você tem o texto a frase "João comprou pão" no rich textbox,

tem como você negrita uma parte do texto( ou ele inteiro), "João comprou pão", dai você testa....

mas acho que nem deve funcionar, pois você ja tentou com o label... mas tenta ae vai que funciona

[acma88 0]

cara, soh uma perguntah !ond fika essa propriedade rich textbox??naum axei no vb abraço

[scorpio 7]

pra você poder negrita uma parte do texto:

 

você tem a frase "João comprou pão" se você quiser negritar a palavra 'comprou', você move o cursor na posição 5(pq o 'c' ta na msma), e depois poe o tamanho da palavra, no case 7

 

 

richtextbox1.selstart=5 ' posição que o cursor vai fica piscando

richtextbox1.SelLength = 7 'o tamanho da seleção

richtextbox1.selbold=true

 

 

 

 

ou vai la na propriedade 'font' e poe negrito, nunca fiz por esse segudo caminho

 

no site do macoratti tem uma explicação legal de rich text box, http://www.macoratti.net/vb_richt.htm

 

 

flw

 

abraços

[acma88 0]

§¢ö®Þ¡ö, descobri um jeito de negritar o texto que eu quero !o codigo eh o seguinte

Print #n, Chr(27) & "E"; "DADOS DA INTERVENCAO TECNICA"; Chr$(27) & Chr(70)

tah aew pra quem quiservaleu pela ajuda, abraços a todos