imprimir negrito em daruma ñ fiscal e lpt !

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