Help I can't adjust Picture in PrintDocument

[starfish]

Hey guys just a newbie, please the picture below

This is the layout when clicking print and print preview, and here is the code

I cant resize the picture, the picture in the form is fix I can't make it a whole A4

[.paul.]

Try setting Left, Top, Width, Height...

e.graphics.drawimage(db, l, t, w, h)

[.paul.]

PrintPreviewDialog1.ToString() ???

That does nothing.

Try changing that line to...

PrintPreviewDialog1.WindowState = FormWindowState.Maximized

[starfish]

I will try it thank you, i just put it because when i click print preview twice there is an error on the code and when after i put the .tostring the error is gone and i can check the print preview several times

[starfish]

This what happen when put length and top
Attachment 186382

[.paul.]

Try this...

Imports System.Drawing.Printing

Public Class Form1

    Private WithEvents PrintDocument1 As New PrintDocument
    Private ppd As New PrintPreviewDialog With {.Document = PrintDocument1, .windowstate = FormWindowState.Maximized}

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ppd.ShowDialog()
    End Sub

    Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim img As New Bitmap("a bitmap")

        Dim l As Integer
        Dim t As Integer
        Dim w As Integer = img.Width
        Dim h As Integer = img.Height

        If w > e.PageBounds.Width Then
            w = e.PageBounds.Width
            h = CInt(w / img.Width * img.Height)
        End If

        If h > e.PageBounds.Height Then
            h = e.PageBounds.Height
            w = CInt(h / img.Height * img.Width)
        End If

        l = CInt(e.PageBounds.Left + ((e.PageBounds.Width - w) / 2))
        t = CInt(e.PageBounds.Top + ((e.PageBounds.Height - h) / 2))

        e.Graphics.DrawImage(img, l, t, w, h)
    End Sub

End Class