Tema: equivalencia de pixeles a centimetros
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 21/10/2004, 23:04
Avatar de Beakdan
Beakdan
 
Fecha de Ingreso: diciembre-2001
Ubicación: Monterrey, Nuevo León
Mensajes: 433
Antigüedad: 23 años
Puntos: 7
Troyano:
Utiliza los métodos ScaleX y ScaleY
Lo usarías más o menos así:
Código: 
Dim nPixPerCentX As Single
Dim nPixPerCentY As Single
 
	nPixPerCentX = Me.ScaleX(1, vbCentimeters, vbPixels)
	nPixPerCentY = Me.ScaleY(1, vbCentimeters, vbPixels)
Saludos