The PaintPicture method of the Picture object allows you to
print the picture. However, this method will adjust the picture size to fit on
a single sheet of paper. This article shows you how to print a large picture on
multiple sheets of paper.
The following files are available for download from the Microsoft
additional information about how to download Microsoft Support files, click the
following article number to view the article in the Microsoft Knowledge Base:
How to Obtain Microsoft Support Files from Online Services
Microsoft scanned this file for viruses. Microsoft used the most
current virus-detection software that was available on the date that the file
was posted. The file is stored on security-enhanced servers that help to
prevent any unauthorized changes to the file.
When you run the self-extracting file, the
following files are expanded into the Printing Large Pictures Project on your
- Form1.frm 4,570 bytes
- Prtlgpct.vbp 650 bytes
- Prtlgpct.vbw 49 bytes
- Readme.txt 5,113 bytes
To print a large picture over several sheets, you start by
calculating the ratio of the picture's height and width to the maximum height
and width the printer can print. From this ratio, you can calculate the number
of pages required to print the picture completely. With each page, you use the
PrintPicture method to print the maximum image on that sheet. Keep repeating
this process on each successive page until the picture is completely printed.
The next section shows you how to create a sample program to
demonstrate this technique.
- Start a new project in Visual Basic. Form1 is created by
- Add three CommandButtons, a Common Dialog control, and a
Picture control to Form1.
- Copy the following code to the Code window of Form1:
Const constMaxValue = 32767
Dim lngPrinterWidth As Long, lngPrinterHeight As Long
Dim lngPictureWidth As Long, lngPictureHeight As Long
Dim lngXCoor As Long, lngYCoor As Long
Dim sngWidthRatio As Single, sngHeightRatio As Single
Dim intPageWidth As Integer, intPageHeight As Integer
Dim bytWidthCount As Byte, bytHeightCount As Byte
Private Sub Form_Load()
Command1.Caption = "Load Picture"
Command2.Caption = "Print Single Page"
Command3.Caption = "Print Multiple Pages"
Private Sub Command1_Click()
'Opens the common dialog box so you can select a picture file
'to load into the Picture object.
Dim picFile As Picture
CommonDialog1.Filter = "JPEG files|*.jpg|BMP files|*.bmp"
If CommonDialog1.filename <> "" Then
Set picFile = LoadPicture(CommonDialog1.filename)
Set Picture1.Picture = picFile
Form1.Height = Picture1.Height + 1700
Form1.Width = Picture1.Width + 1400
Picture1.Left = 700
Picture1.Top = 700
Private Sub Command2_Click()
'Print the picture on a single sheet. Picture object automatically
'adjusts picture size to fit into a single sheet.
Printer.PaintPicture Picture1.Picture, lngXCoor, lngYCoor
MsgBox "Done Sending Info to Printer"
Private Sub Command3_Click()
'Print the picture on multiple sheets.
'Load the dimensions of the image and printer into memory
lngPictureWidth = Picture1.Picture.Width
lngPictureHeight = Picture1.Picture.Height
lngPrinterWidth = Printer.Width
lngPrinterHeight = Printer.Height
'Calculate the ratios
sngWidthRatio = lngPictureWidth / lngPrinterWidth
sngHeightRatio = lngPictureHeight / lngPrinterHeight
'Calculate how many pages are required to print the picture
intPageWidth = constMaxValue - Int(constMaxValue - sngWidthRatio)
intPageHeight = constMaxValue - Int(constMaxValue - _
For bytWidthCount = 1 To intPageWidth
'Calculate the x-offset
lngXCoor = -lngPrinterWidth * (bytWidthCount - 1)
For bytHeightCount = 1 To intPageHeight
'Calculate the y-offset
lngYCoor = -lngPrinterHeight * (bytHeightCount - 1)
'Use the Paint Picture method to print the picture
Printer.PaintPicture Picture1.Picture, _
'start a new page
MsgBox "Done Sending Info to Printer"
- Press the F5 key to run the program. Click Load Picture to
open the Common Dialog, and choose a picture file. Click Print Single Page to
print the picture to a single page or Print Multiple Pages to print to multiple
Article ID: 175084 - Last Review: February 24, 2014 - Revision: 3.2
- Microsoft Visual Basic 5.0 Learning Edition
- Microsoft Visual Basic 6.0 Learning Edition
- Microsoft Visual Basic 5.0 Professional Edition
- Microsoft Visual Basic 6.0 Professional Edition
- Microsoft Visual Basic 5.0 Enterprise Edition
- Microsoft Visual Basic 6.0 Enterprise Edition
- Microsoft Visual Basic 4.0 Standard Edition
- Microsoft Visual Basic 4.0 Professional Edition
- Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
|kbnosurvey kbarchive kbhowto kbprint kbfile kbsample KB175084|