trataste agregandole codigo html a lo que quieres imprimir?
Código:
Set objFS = server.CreateObject("Scripting.FileSystemObject")
Set objPrinter = objFS.CreateTextFile("LPT1:", True)
objPrinter.writeline(" <font size=1>DIRECCION ESTATAL DEL REGISTRO CIVIL </font>")
objPrinter.writeline("Impresion de prueba ")
objPrinter.writeline("----------------------------------------")
objPrinter.writeline chr(30)