PrintDocument centimetros

[denpz]

hola buenas noches, tengo una pregunta, como puedo hacer que las distancias se midan en centímetros en vez de en pixeles? Gracias hasta pronto

[xjuanch0x]

Asi lo puedes hacer:



Dim nPixPerCentX As Single
Dim nPixPerCentY As Single

nPixPerCentX = Me.ScaleX(1, vbCentimeters, vbPixels)
nPixPerCentY = Me.ScaleY(1, vbCentimeters, vbPixels)


Pixels en un centímetro -> Me.ScaleX(1, vbCentimeters, vbPixels)
Milímetros en un pixel -> Me.ScaleX(1, vbPixels, vbMillimeters)
Ancho de la pantalla en centímetros -> Me.ScaleX(Screen.Width, vbTwips, vbCentimeters)