05/01/2006, 11:08
| |||
| |||
| Aydua con printer Saludos bueno actualmente envio una impresion de un formulario por medio de un printer un ejemplo algo asi hago Printer.Print Tab(5); "TRANSPASO" Printer.Print Tab(5); "No Entrada.:"; Spc(2); txtnumero.Text Printer.Print Tab(5); "fecha.:"; Spc(2); txtfecha.text y me imprime TRASPASO 5 05/01/2006 Bueno algo asi por ejemplo lo que quiero agregar es una imagen para poner el logotipo alguien sabra como hacerlo |
|
05/01/2006, 13:45
| ||||
| ||||
| seria algo asi..
Código:
Dim Imagen As Picture
Set Imagen = LoadPicture("C:\FDW\fdwlogo.jpg")
Printer.PaintPicture Imagen, 0, 0, 4300, 600 ' que imprima imagen en x = 0 en Y = 0, ancho = 4300, alto = 600
Printer.EndDoc
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com twitter: @GeoAvila |
|
05/01/2006, 13:57
| |||
| |||
| Cita:
Iniciado por GeoAvila seria algo asi..
Código:
Dim Imagen As Picture
Set Imagen = LoadPicture("C:\FDW\fdwlogo.jpg")
Printer.PaintPicture Imagen, 0, 0, 4300, 600 ' que imprima imagen en x = 0 en Y = 0, ancho = 4300, alto = 600
Printer.EndDoc ok deja lo checare enseguida te agradesco el dato  |
