Print Preview PictureBox Image

SeanPress 206

I have created a form in Visual Basic including a PictureBox with a .jpg image & size set to zoom. The actual image size is A4, bit it sits perfectly within the picture box when the size is set to zoom, I have added a button for print & print preview, a print document & print preview dialog.

When I debug everything works ok but the printed page is off center & I lose part of the right hand side & bottom of the image. It is the same with the print preview, the print preview opens ok, I can change the print preview to full screen & the image resizes, but again, the preview of the image is off center to the right & bottom.

I’m new to Visual Basic, can anyone tell me what would cause the image to be off center & how I can fix the issue?

Xingyu Zhao-MSFT 5,366 Reputation points

2021-02-10T02:54:38.54+00:00

Hi @SeanPress ,
Could you provide some related code here? It will help us analyze your problem and make a test.
We are waiting for your update.

SeanPress 206

Public Class Form13

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    PrintPreviewDialog1.ShowDialog(PictureBox1)
End Sub

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    e.Graphics.DrawImage(PictureBox1.Image, 100, 100)
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    With PrintDocument1

        .DocumentName = "Test Print of picturebox image"

        .PrinterSettings.Copies = 1

        .Print() 'trigger the print event

    End With
End Sub

End Class

Accepted answer

Xingyu Zhao-MSFT 5,366 Reputation points

2021-02-11T02:49:06.393+00:00
Hi @SeanPress ,

The actual image size is A4... the printed page is off center & I lose part of the right hand side & bottom of the image

Conside changing the location of picture.

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage e.Graphics.DrawImage(PictureBox1.Image, 0, 0) End Sub
Please sign in to rate this answer.
SeanPress 206 Reputation points

2021-02-11T17:29:36.473+00:00

Seems so simple now. Worked a treat, thanks.
Sign in to comment

Use comments to ask for clarification, additional information, or improvements to the question.

Share via

Print Preview PictureBox Image

0 additional answers

Your answer