Microsoft Knowledge Base Article
This article contents is Microsoft Copyrighted material.
©2005-©2007 Microsoft Corporation. All rights reserved.
Terms
of Use |
Trademarks
Article ID: 291297 - Last Review: March 29, 2007 - Revision: 4.2
Sample Visual Basic procedure to print range of cells in Excel
This article was previously published under Q291297
For a Microsoft Excel 2000 version of this article,
see
213451Â
(http://kbalertz.com/Feedback.aspx?kbNumber=213451/EN-US/
)
.
For a Microsoft Excel 98
version of this article, see
192364Â
(http://kbalertz.com/Feedback.aspx?kbNumber=192364/EN-US/
)
.
For a Microsoft Excel
97 and earlier version of this article, see
121818Â
(http://kbalertz.com/Feedback.aspx?kbNumber=121818/EN-US/
)
.
This article contains a Microsoft Visual Basic for
Applications macro that lets you print different parts of a worksheet without
first having to select the range of cells or set the print area in the
Page Setup dialog box.
Microsoft provides programming examples for illustration only,
without warranty either expressed or implied. This includes, but is not limited
to, the implied warranties of merchantability or fitness for a particular
purpose. This article assumes that you are familiar with the programming
language that is being demonstrated and with the tools that are used to create
and to debug procedures. Microsoft support engineers can help explain the
functionality of a particular procedure, but they will not modify these
examples to provide added functionality or construct procedures to meet your
specific requirements.
When you run the following macro, you are prompted to
enter a range of cells to print. You can enter a name that refers to a range of
cells on a particular sheet or the range itself (for example A1:C15). You can
also specify multiple ranges by separating each range with a comma. Before you
run the macro, the workbook that you want to print from must be the active
workbook.
Sub Print_Area()
Dim My_Range As String
On Error Resume Next 'enables error handling
My_Range = InputBox("Enter the name of the area to print:")
'if Cancel is chosen then InputBox returns empty string
If Len(My_Range) > 0 Then Range(My_Range).PrintOut
If Err > 0 Then MsgBox "Name or range specified is not valid."
End Sub
For additional information about getting help with
Visual Basic for Applications, click the article number below to view the
article in the Microsoft Knowledge Base:
305326Â
(http://kbalertz.com/Feedback.aspx?kbNumber=305326/EN-US/
)
OFFXP: Programming Resources for Visual Basic for Applications
APPLIES TO
- Microsoft Office Excel 2007
- Microsoft Office Excel 2003
- Microsoft Excel 2002 Standard Edition
| kbdtacode kbhowto kbprint kbprogramming KB291297 |
Community Feedback System
Very often, it takes hours to solve a problem. Very often, you've looked high
and low, and have tried a lot of solutions. When you finally found it, chances
are, it was because someone else helped you. Here's your chance to give back.
Use our community feedback tool to let others know what worked for you and what
didn't.
Please also understand that the community feedback system is not warranted to be
correct, it's simply a system that we've built to let people try and help each
other. If something in a feedback response doesn't make sense to you, or you're
not comfortable making changes that the feedback talks about (like registry
edits), please consult a professional.
Thank you for using kbAlertz.com Feedback System.
-- Scott Cate