codice:
Me.ScaleMode = vbTwips
Me.Height = Me.ScaleY(29.7, vbCentimeters, vbTwips)
Me.Width = Me.ScaleX(21, vbCentimeters, vbTwips)
Boolean