• Miércoles 11 de Diciembre de 2019, 01:21

Autor Tema:  uso del control line  (Leído 1606 veces)

linster

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
uso del control line
« en: Martes 11 de Junio de 2013, 19:36 »
0
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.

goos3

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re:uso del control line
« Respuesta #1 en: Jueves 13 de Junio de 2013, 17:10 »
0
Si haces esto...
Picture1.Line (10, 10)-(10, 200), vbBlack

estas dibujando una linea de 190 ya que 10 es el inicio y 200 es el fin...
para tener una linea de 200 seria asi:

Picture1.Line (10, 10)-(10, 210), vbBlack

saludos

linster

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re:uso del control line
« Respuesta #2 en: Jueves 13 de Junio de 2013, 19:27 »
0
Muchas gracias por la ayuda. Funciona tal como dijiste.