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.
