This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(112.00000000000001, 24%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ES%3C/text%3E%3C/svg%3E)
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?
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(233.6, 28.999999999999996%, 32%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EXZ%3C/text%3E%3C/svg%3E)
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.
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
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
Seems so simple now. Worked a treat, thanks.