Cambiar Font

[AmoC]

mira ya se que hay muchos recurso para eso , pero en mi aplicacion ten dos impresoras, una esta en LPT y la otra en USB, y tengo que imprimir en las dos primero en una y despues en la otra casi segidas, entonces estaba buscando algo para cambiar la impresora predeterminada y no encontre nada, hasta hoy pude hacer imprimir la del puerto paralelo con lo siguiente....
Set objFS = server.CreateObject("Scripting.FileSystemObject")
Set objPrinter = objFS.CreateTextFile("LPT1:", True)
objPrinter.writeline("Impresion de prueba ")
objPrinter.writeline("----------------------------------------")
objPrinter.writeline chr(30)


y me lo imprime bien pero quisiera saber como hacerlo de un tamaño mas chico..