Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim bmp = New Bitmap(PictureBox1.DisplayRectangle.Width, PictureBox1.DisplayRectangle.Height) PictureBox1.DrawToBitmap(bmp, PictureBox1.ClientRectangle) ' New Rectangle(0, 0, bmp.Width, bmp.Height)) e.Graphics.DrawImage(bmp, 0, 0) e.Graphics.CompositingQuality = CompositingQuality.HighQuality e.Graphics.SmoothingMode = SmoothingMode.HighQuality e.Graphics.InterpolationMode = InterpolationMode.HighQualityBicubic End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)