I am using Excel 2003, I would like to print only the names, addresss. Is it
possible to sellect only what you need and print it, from the cells?

Hi
do you mean 'File - Print Area'?

--
Regards
Frank Kabel
Frankfurt, Germany


Marie wrote:
I am using Excel 2003, I would like to print only the names,
addresss. Is it possible to sellect only what you need and print it,
from the cells?

If you want to do it from a macro, do this:

'build MyRange

Range(MyRange).Select
Selection.PrintOut Copies:=1, Collate:=True

otherwise, select the cells you want to print with the mouse. Select File -
Print
In the dialog box select "Selection" then print

Glen

"Marie" wrote in message
...
I am using Excel 2003, I would like to print only the names, addresss. Is
it
possible to sellect only what you need and print it, from the cells?

Have you tried to print yet? In the Print dialog, you should notice the option
to print the selection.

If the cells aren't contiguous, you can always hide rows and/or columns.

On Sat, 13 Nov 2004 15:19:02 -0800, "Marie"
wrote:

I am using Excel 2003, I would like to print only the names, addresss. Is it
possible to sellect only what you need and print it, from the cells?

Here's something of interest;
Requirements:
1) Column Z should be empty
2) Before running first of two macros -- click on #1 cell, then hold down
the control key and continue to click of any number of additional cells,
up to 20 (say for example).. Once you've select then:
3) Run Macro:

Sub CellsToGrabUp()
i = 0
Set rangeToUse = Selection
If rangeToUse.Areas.Count = 1 Then
rangeToUse.Copy Destination:=Range("Z1")
Else
For Each singleArea In rangeToUse.Areas
i = i + 1
singleArea.Copy Destination:=Cells(0 + i, 1)
Next
End If
End Sub ' the selected cells will be listed in Z1:Z20
4) Run Macro:
Sub CellsToPrint()
Dim Lr As Integer
Lr = Cells(Rows.Count, 26).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "Z1:Z" & Lr
ActiveSheet.PrintPreview ' change PrintPreview to PrintOut if
hard copy desired
ActiveSheet.PageSetup.PrintArea = ""
End Sub

HTH,
JMay

"Frank Kabel" wrote in message
...
Hi
do you mean 'File - Print Area'?

--
Regards
Frank Kabel
Frankfurt, Germany


Marie wrote:
I am using Excel 2003, I would like to print only the names,
addresss. Is it possible to sellect only what you need and print it,
from the cells?

Whoops!!!
Change line below singleArea.Copy Destination:=Cells(0 + i, 1)
to:
singleArea.Copy Destination:=Cells(0 + i, 26)

"Jim May" wrote in message
news:MoAld.4028$Dk.3549@lakeread08...
Here's something of interest;
Requirements:
1) Column Z should be empty
2) Before running first of two macros -- click on #1 cell, then hold down
the control key and continue to click of any number of additional cells,
up to 20 (say for example).. Once you've select then:
3) Run Macro:

Sub CellsToGrabUp()
i = 0
Set rangeToUse = Selection
If rangeToUse.Areas.Count = 1 Then
rangeToUse.Copy Destination:=Range("Z1")
Else
For Each singleArea In rangeToUse.Areas
i = i + 1
singleArea.Copy Destination:=Cells(0 + i, 1)
Next
End If
End Sub ' the selected cells will be listed in Z1:Z20
4) Run Macro:
Sub CellsToPrint()
Dim Lr As Integer
Lr = Cells(Rows.Count, 26).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "Z1:Z" & Lr
ActiveSheet.PrintPreview ' change PrintPreview to PrintOut if
hard copy desired
ActiveSheet.PageSetup.PrintArea = ""
End Sub

HTH,
JMay

"Frank Kabel" wrote in message
...
Hi
do you mean 'File - Print Area'?

--
Regards
Frank Kabel
Frankfurt, Germany


Marie wrote:
I am using Excel 2003, I would like to print only the names,
addresss. Is it possible to sellect only what you need and print it,
from the cells?