Estamos de nuevo y ahora con ganas de hacer funcionar un poco la impresora ;-) hoy nos toca el tema de la impresion de texto con y sin formato bajo Visual Basic, para ello utilizaremos el objeto Printer que no es un componente extra ni nada por el estilo, este ya viene con nuestro querido Visual Basic 4, 5, 6 y VB.NET.

Primero imprimiremos un texto simple y sin formato, mejor dicho con el formato que tenga predeterminada la impresora...

Printer.Print "Hola a todos!"

Aqui tenemos el objeto Printer con su metodo mas importante "Print" cuyo objetivo es imprimir el texto pasado como parametro, si dejamos esto como esta veremos que nuestra impresora ni se mueve dado que falta un metodo que le indique a Windows que envie todo lo anterior a imprimir, este metodo es "EndDoc", nuestro ejemplo totalmente funcional seria asi...

Printer.Print "Hola a todos!"
Printer.EndDoc

Ahora si nuestra impresora comenzara a funcionar, se entiende la funcion de EndDoc?, en resumen... primero indicamos todo lo que queremos imprimir y luego lo mandamos a la impresora con EndDoc. Otro ejemplo...

Printer.Print "Hola a todos! 1"
Printer.Print "Hola a todos! 2"
Printer.EndDoc

En el papel de la impresora quedaria asi...

Hola a todos! 1
Hola a todos! 2

Fijense que queda una linea debajo de la otra, esto es asi porque despues del metodo "Print" automaticamente se pasa al renglon siguiente.

Ahora si queremos imprimir en distintas hojas utilizamos "NewPage", aqui el ejemplo...

Printer.Print "Pagina 1"
Printer.NewPage
Printer.Print "Pagina 2"
Printer.EndDoc

Facil no? Atencion lo unico que no nos debemos olvidar es el EndDoc. Ahora veremos como darle formato al texto, para esto antes veremos este ejemplo...

Printer.Print "Normal"
Printer.FontBold = True
Printer.Print "Negrita"
Printer.FontItalic = True
Printer.Print "Italic"
Printer.FontItalic = False
Printer.Print "Otra ves Normal"
Printer.EndDoc

Bueno la verdad es simple, mediante las propiedades FontBold, FontItalic, FontStrikeThru y FontUnderline manejamos el estilo de la fuente dandole un valor Verdadero (TRUE) si queremos activar algun estilo, con todo a Falso el estilo de la fuente es normal. Ahora veremos el tamaño...

Printer.FontSize = 15
Printer.Print "Tamaño de 15"
Printer.EndDoc

Mas facil todavia! Mediante FontSize especificamos el tamaño de la fuente y por ultimo para definir la fuente a utilizar usamos FontName, quedaria asi...

Printer.FontName = "Tahoma"
Printer.FontSize = 17
Printer.Print "Tamaño de 17 y fuente Tahoma"
Printer.EndDoc

Bueno Saludos a todos y no gasten mucha tinta!!!