Hola muchas gracias, claro que me ayudo muchísimo. pero terminé haciéndolo de otra forma primero ajusto mi formulario a lo alto de la resolución y para que me imprima en toda la hoja escalo la altura. Les envío mi código claro que hubo aportaciones de muchos sitios pero así quedo al final. gracias.
Dim img As New Bitmap(Me.Width - 256, Me.Height)
Dim printsize As Size = e.MarginBounds.Size
Dim scale As Double = 1
Dim scalehg As Double = 1.2
Dim pos As New Size(30, 30)
Me.DrawToBitmap(img, New Rectangle(Point.Empty, Me.Size))
printsize.Width *= 2.5
printsize.Height *= 1
If img.Width > printsize.Width Then
scale = printsize.Width / img.Width
e.Graphics.ScaleTransform(scale, scale)
End If
If (img.Height * scalehg > printsize.Height) Then
scale = printsize.Height / (img.Height * scale)
e.Graphics.ScaleTransform(scale, scalehg)
End If
e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
e.Graphics.DrawImage(img, pos)
img.Dispose()
End Sub