Render example for Access 2.0

This example demonstrates the Render method.

' Set the variables used for preserving the aspect ratio.
HeightFactor = Me![LEAD1].Object.BitmapHeight
WidthFactor = Me![LEAD1].Object.BitmapWidth

' Allow a maximum of 6x6 inches on a 300dpi printer
HeightAllowed = 1800
WidthAllowed = 1800

' Print the LEAD control, preserving the aspect ratio.
' Check to see if using the maximum width will make the image too tall.
' Set the dimensions based on the result.
If ((WidthAllowed * HeightFactor) / WidthFactor) < HeightAllowed Then
    ControlWidth = WidthAllowed
    ControlHeight = (ControlWidth * HeightFactor) / WidthFactor
Else
    ControlHeight = HeightAllowed
    ControlWidth = (ControlHeight * WidthFactor) / HeightFactor
End If

MyPrinter = Me![LEAD1].Object.PrintStart
Me![LEAD1].Object.Render MyPrinter, 0, 0, ControlWidth, ControlHeight
Me![LEAD1].Object.PrintEnd MyPrinter