Print size too small

I followed the sample code provided in the documentation for Print a Real Image Size in Inches and also tried the code in the VB Main Demo but still cannot get any of my documents to print correctly. The documents are printed much smaller than the original size. I am using LEADTOOLS v14.5 build 37 for NET. Also, is it possible to set the paper size to legal for each print job? How?

Here's the first code that I used:
    Private Sub mnu_ScanPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_ScanPrint.Click
        ' Check for printer on this machine
        If (Not IsNothing(PrinterSettings.InstalledPrinters)) And (PrinterSettings.InstalledPrinters.Count > 0) Then
            If Not prt_ScanDoc Is Nothing Then
                prt_ScanDoc.Print()
            End If
        End If
    End Sub

    Private Sub prt_ScanDoc_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Handles prt_ScanDoc.PrintPage
        Dim Image As IRasterImage
        Dim Printer As New RasterImagePrinter

        Image = RasterImageViewer1.Image
        Printer.Print(Image, Image.Page, e)
    End Sub


This is the second set of code that I tried after the first didn't work:
    Private Sub mnu_ScanPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_ScanPrint.Click
        ' Check for printer on this machine
        If (Not IsNothing(PrinterSettings.InstalledPrinters)) And (PrinterSettings.InstalledPrinters.Count > 0) Then
            If Not prt_ScanDoc Is Nothing Then
                prt_ScanDoc.Print()
            End If
        End If
    End Sub

Private Sub prt_ScanDoc_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Handles prt_ScanDoc.PrintPage
        Dim TotalWidth As Single
        Dim TotalHeight As Single
        Dim ImageWidth As Single
        Dim ImageHeight As Single
        Dim ScanGraphics As Graphics
        Dim Ratio As Single
        Dim RasterRectangle As RectangleF
        Dim RasterProp As RasterPaintProperties

        ' Print current document displayed in RasterImageViewer1
        ImageWidth = RasterImageViewer1.Image.ImageWidth * (RasterImageViewer1.Image.XResolution / e.Graphics.DpiX)
        ImageHeight = RasterImageViewer1.Image.ImageHeight * (RasterImageViewer1.Image.YResolution / e.Graphics.DpiY)

        ScanGraphics = RasterImageViewer1.CreateGraphics

        Try
            TotalWidth = e.MarginBounds.Width * (e.Graphics.DpiX / ScanGraphics.DpiX)
            TotalHeight = e.MarginBounds.Height * (e.Graphics.DpiY / ScanGraphics.DpiY)
        Catch ex As System.Exception
            My.Application.Log.WriteException(ex)
        Finally
            ScanGraphics.Dispose()
        End Try

        Ratio = TotalWidth / ImageWidth
        If ((Ratio * ImageHeight) > TotalHeight) Then
            Ratio = TotalHeight / ImageHeight
        End If

        RasterRectangle = New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, 3.8 * ImageWidth, 3.8 * ImageHeight)
        RasterProp = RasterPaintProperties.Default
        RasterProp.PaintDisplayMode = RasterPaintDisplayModeFlags.ScaleToGray
        RasterImageViewer1.Image.Paint(e.Graphics, Rectangle.Round(RasterRectangle), RasterProp)
    End Sub

Your second code example looks like it is close to the "Print a Real Image Size in Inches" but with a couple minor modifications.  Where does 3.8 come from?  In our sample you would be using the Ratio calculated from TotalHeight / ImageHeight.  Was this just trial and error to get the desired result?

Are you sure that your image is printing incorrectly?  The point of this topic is to have the image print exactly the size it should be on paper.  This will take into consideration your image's DPI.  If your image is something like 300x600 pixels and it's DPI is 300, then your image on paper will only be 1x2 inches. 

As for changing the paper size, you should be able to do this by using the System.Drawing.Printing.PrintDocument class' DefaultPageSettings.PaperSize property.  Something like this would do the trick:

Dim pd As New Printing.PrintDocument
pd.DefaultPageSettings.PaperSize = New PaperSize("Letter", 850, 1400)

If you are still having problems, please send us the file you are trying to print as well and a scan of the page you printed with your code.

NOTE: If you are attaching a project or file to the forums...