Print an Image contained in a Picture Box or a Form [ All Languages » VB »  Printing] Total Hit ( 2447) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

Module Click here to copy the following block 'Print the Picture contained in a PictureBox or a Form Public Sub PrintImage(p As IPictureDisp, Optional ByVal x, Optional ByVal y, Optional ByVal resize)   If IsMissing(x) Then x = Printer.CurrentX   If IsMissing(y) Then y = Printer.CurrentY   If IsMissing(resize) Then resize = 1   Printer.PaintPicture p, x, y, p.Width * resize, p.Height * resize End Sub Usage Click here to copy the following block 'Usage: Private Sub Command1_Click()   'Print the image loaded in Picture1 (real size)   PrintImage Picture1.Picture   'Print the image loaded in Picture1 (half size)   PrintImage Picture1.Picture, , , 0.5   'Print the image loaded in Picture1 (double size)   PrintImage Picture1.Picture, , , 0.5 End Sub

Related Article(s)

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)
	Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )