Size en TXT
Publicado por Christ (24 intervenciones) el 13/02/2004 17:08:33
Estoy creando un archivo txt q lo abro en Bloc de Notas, todo por codigo, lo q quiero saber es COMO HAGO PARA DARLE EL TAMAÑO DE FUENTE POR CODIGO...Aqui Parte del codigo...::
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\0Laboratorio\" & txtCodAna.Text & ".txt", True)
a.Write ("Codigo : " & txtCodAna.Text & vbTab & vbTab & vbTab & "Fecha : " & txtFecAna.Text & vbEnter)
a.Write (Chr(13) + Chr(10))
a.Write ("Paciente : " & vbTab & cboNomPac.Text)
a.Write (Chr(13) + Chr(10))
a.Write ("Ordenado : " & vbTab & cboNomDoc.Text & vbTab & vbTab & vbTab & "Clinica : " & vbTab & cboCliDoc.Text)
a.Write (Chr(13) + Chr(10))
a.Write (Chr(13) + Chr(10))
de Antemano Gracias
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\0Laboratorio\" & txtCodAna.Text & ".txt", True)
a.Write ("Codigo : " & txtCodAna.Text & vbTab & vbTab & vbTab & "Fecha : " & txtFecAna.Text & vbEnter)
a.Write (Chr(13) + Chr(10))
a.Write ("Paciente : " & vbTab & cboNomPac.Text)
a.Write (Chr(13) + Chr(10))
a.Write ("Ordenado : " & vbTab & cboNomDoc.Text & vbTab & vbTab & vbTab & "Clinica : " & vbTab & cboCliDoc.Text)
a.Write (Chr(13) + Chr(10))
a.Write (Chr(13) + Chr(10))
de Antemano Gracias
Valora esta pregunta


0