PrintDocument centimetros

[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)