• Viernes 1 de Marzo de 2024, 12:42

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - linster

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re:uso del control line
« en: Jueves 13 de Junio de 2013, 19:27 »
Muchas gracias por la ayuda. Funciona tal como dijiste.

2
Visual Basic 6.0 e inferiores / uso del control line
« en: Martes 11 de Junio de 2013, 19:36 »
Buenas tardes. Desearía pedirles ayuda sobre el control line.
Con este codigo dibujo en un picture dos lineas de 200 x 170 formando una escuadra
Picture1.Line (10, 10)-(10, 200), vbBlack
Picture1.Line (10, 200)-(170, 200), vbBlack

Despues de ejecutar el código, en pantalla  la medida es de 211,5 x 177,5

El picture en  Scale mode lo pongo en milímetros

El código de imprimir es el siguiente:
Picture1.Picture = Picture1.Image
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
DoEvents
Printer.ScaleMode = 6
Printer.EndDoc

El problema con el que me encuentro es que al imprimir las lineas no coinciden con los milímetros.
El lado que tendría que medir 200 mm mide 190 mm, el lado que tendría que medir 170 mm mide 160 mm.
Si aumento o disminuyo las medidas de los lados, al imprimir las medidas siguen siendo 10 mm menos de las puestas en el código.
Pueden ayudarme por favor. Necesito que al imprimir me marque los milímetros con exactitud.

Páginas: [1]