How to display print area only

  • Thread starter Thread starter khoward
  • Start date Start date
K

khoward

how do I display the print area ONLY in my window. I
would like all the "extra unused" portion of the
spreadsheet to show the blue background color only. Is
there a toggle for this?

the spreadsheets that I e-mail to clients would have more
impact if I could eliminate all the extra area.

Thanks for any help you all can give me.
 
Hi khoward
the spreadsheets that I e-mail to clients would have more
impact if I could eliminate all the extra area.
Click to expand...

One way

Mail it to yourself to see the result

Sub Mail_Selection()
Dim strDate As String
Dim Addr As String
Dim rng As Range
' Exit if multiple worksheets or multiple ranges are selected.
If ActiveWindow.SelectedSheets.Count > 1 Or _
Selection.Areas.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Addr = Range("Print_Area").Address
ActiveSheet.Copy
ActiveSheet.Pictures.Delete
With Cells
.EntireColumn.Hidden = False
.EntireRow.Hidden = False
End With
Range(Addr).Select
Set rng = Selection
Application.GoTo rng, True
With rng.EntireColumn
.Hidden = True
rng(1).EntireRow.SpecialCells(xlVisible).EntireColumn.Clear
rng(1).EntireRow.SpecialCells(xlVisible).EntireColumn.Hidden _
= True
.Hidden = False
End With
With rng.EntireRow
.Hidden = True
rng(1).EntireColumn.SpecialCells(xlVisible).EntireRow.Clear
rng(1).EntireColumn.SpecialCells(xlVisible).EntireRow.Hidden _
= True
.Hidden = False
End With
Application.GoTo rng, True
rng.Cells(1).Select
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail "(e-mail address removed)", _
"This is the Subject line"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End Sub
 
Thanks, but geesh, I don't know what to do with what you
wrote. I sometimes receive xl files formatted on a blue
background and it seems that there might be an easy way to
do this. Is this something that I need to upgrade to do?

Again, thanks.
-----Original Message-----
Hi khoward


One way

Mail it to yourself to see the result

Sub Mail_Selection()
Dim strDate As String
Dim Addr As String
Dim rng As Range
' Exit if multiple worksheets or multiple ranges are selected.
If ActiveWindow.SelectedSheets.Count > 1 Or _
Selection.Areas.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Addr = Range("Print_Area").Address
ActiveSheet.Copy
ActiveSheet.Pictures.Delete
With Cells
.EntireColumn.Hidden = False
.EntireRow.Hidden = False
End With
Range(Addr).Select
Set rng = Selection
Application.GoTo rng, True
With rng.EntireColumn
.Hidden = True
rng(1).EntireRow.SpecialCells (xlVisible).EntireColumn.Clear
rng(1).EntireRow.SpecialCells
Click to expand...
(xlVisible).EntireColumn.Hidden _
 
Hi

I may be wrong but I think what you are after is to select "View>Page Break
Preview" - to toggle back select "View>Normal View"

--
XL2002
Regards

William
(e-mail address removed)

| Thanks, but geesh, I don't know what to do with what you
| wrote. I sometimes receive xl files formatted on a blue
| background and it seems that there might be an easy way to
| do this. Is this something that I need to upgrade to do?
|
| Again, thanks.
| >-----Original Message-----
| >Hi khoward
| >
| >> the spreadsheets that I e-mail to clients would have
| more
| >> impact if I could eliminate all the extra area.
| >
| >One way
| >
| >Mail it to yourself to see the result
| >
| >Sub Mail_Selection()
| > Dim strDate As String
| > Dim Addr As String
| > Dim rng As Range
| > ' Exit if multiple worksheets or multiple ranges are
| selected.
| > If ActiveWindow.SelectedSheets.Count > 1 Or _
| > Selection.Areas.Count > 1 Then Exit Sub
| > Application.ScreenUpdating = False
| > Addr = Range("Print_Area").Address
| > ActiveSheet.Copy
| > ActiveSheet.Pictures.Delete
| > With Cells
| > .EntireColumn.Hidden = False
| > .EntireRow.Hidden = False
| > End With
| > Range(Addr).Select
| > Set rng = Selection
| > Application.GoTo rng, True
| > With rng.EntireColumn
| > .Hidden = True
| > rng(1).EntireRow.SpecialCells
| (xlVisible).EntireColumn.Clear
| > rng(1).EntireRow.SpecialCells
| (xlVisible).EntireColumn.Hidden _
| > = True
| > .Hidden = False
| > End With
| > With rng.EntireRow
| > .Hidden = True
| > rng(1).EntireColumn.SpecialCells
| (xlVisible).EntireRow.Clear
| > rng(1).EntireColumn.SpecialCells
| (xlVisible).EntireRow.Hidden _
| > = True
| > .Hidden = False
| > End With
| > Application.GoTo rng, True
| > rng.Cells(1).Select
| > strDate = Format(Date, "dd-mm-yy") & " " & Format
| (Time, "h-mm-ss")
| > ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
| > & " " & strDate & ".xls"
| > ActiveWorkbook.SendMail "(e-mail address removed)", _
| > "This is the Subject line"
| > ActiveWorkbook.ChangeFileAccess xlReadOnly
| > Kill ActiveWorkbook.FullName
| > ActiveWorkbook.Close False
| > Application.ScreenUpdating = True
| >End Sub
| >
| >
| >
| >
| >
| >
| >
| >
| >--
| >Regards Ron de Bruin
| >(Win XP Pro SP-1 XL2002 SP-2)
| >
| >
| >
| >
| | >> how do I display the print area ONLY in my window. I
| >> would like all the "extra unused" portion of the
| >> spreadsheet to show the blue background color only. Is
| >> there a toggle for this?
| >>
| >> the spreadsheets that I e-mail to clients would have
| more
| >> impact if I could eliminate all the extra area.
| >>
| >> Thanks for any help you all can give me.
| >
| >
| >.
| >
 
Perhaps you could benefit from the Power Utility Pak from John Walkenbach.
He has some interactive zoom and several printing tools that you will like,
and you don't have to do any programming. He did it. Here is the link. I
think they are free on a trial basis.
http://j-walk.com/ss/pup/pup5/index.htm
HTH
--
RMC,CPA


how do I display the print area ONLY in my window. I
would like all the "extra unused" portion of the
spreadsheet to show the blue background color only. Is
there a toggle for this?

the spreadsheets that I e-mail to clients would have more
impact if I could eliminate all the extra area.

Thanks for any help you all can give me.
 
You're probably right. I'll bet that is what the guy wants.
--
RMC,CPA


Hi

I may be wrong but I think what you are after is to select "View>Page Break
Preview" - to toggle back select "View>Normal View"

--
XL2002
Regards

William
(e-mail address removed)

| Thanks, but geesh, I don't know what to do with what you
| wrote. I sometimes receive xl files formatted on a blue
| background and it seems that there might be an easy way to
| do this. Is this something that I need to upgrade to do?
|
| Again, thanks.
| >-----Original Message-----
| >Hi khoward
| >
| >> the spreadsheets that I e-mail to clients would have
| more
| >> impact if I could eliminate all the extra area.
| >
| >One way
| >
| >Mail it to yourself to see the result
| >
| >Sub Mail_Selection()
| > Dim strDate As String
| > Dim Addr As String
| > Dim rng As Range
| > ' Exit if multiple worksheets or multiple ranges are
| selected.
| > If ActiveWindow.SelectedSheets.Count > 1 Or _
| > Selection.Areas.Count > 1 Then Exit Sub
| > Application.ScreenUpdating = False
| > Addr = Range("Print_Area").Address
| > ActiveSheet.Copy
| > ActiveSheet.Pictures.Delete
| > With Cells
| > .EntireColumn.Hidden = False
| > .EntireRow.Hidden = False
| > End With
| > Range(Addr).Select
| > Set rng = Selection
| > Application.GoTo rng, True
| > With rng.EntireColumn
| > .Hidden = True
| > rng(1).EntireRow.SpecialCells
| (xlVisible).EntireColumn.Clear
| > rng(1).EntireRow.SpecialCells
| (xlVisible).EntireColumn.Hidden _
| > = True
| > .Hidden = False
| > End With
| > With rng.EntireRow
| > .Hidden = True
| > rng(1).EntireColumn.SpecialCells
| (xlVisible).EntireRow.Clear
| > rng(1).EntireColumn.SpecialCells
| (xlVisible).EntireRow.Hidden _
| > = True
| > .Hidden = False
| > End With
| > Application.GoTo rng, True
| > rng.Cells(1).Select
| > strDate = Format(Date, "dd-mm-yy") & " " & Format
| (Time, "h-mm-ss")
| > ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
| > & " " & strDate & ".xls"
| > ActiveWorkbook.SendMail "(e-mail address removed)", _
| > "This is the Subject line"
| > ActiveWorkbook.ChangeFileAccess xlReadOnly
| > Kill ActiveWorkbook.FullName
| > ActiveWorkbook.Close False
| > Application.ScreenUpdating = True
| >End Sub
| >
| >
| >
| >
| >
| >
| >
| >
| >--
| >Regards Ron de Bruin
| >(Win XP Pro SP-1 XL2002 SP-2)
| >
| >
| >
| >
| | >> how do I display the print area ONLY in my window. I
| >> would like all the "extra unused" portion of the
| >> spreadsheet to show the blue background color only. Is
| >> there a toggle for this?
| >>
| >> the spreadsheets that I e-mail to clients would have
| more
| >> impact if I could eliminate all the extra area.
| >>
| >> Thanks for any help you all can give me.
| >
| >
| >.
| >
 
You are close. It LOOKS very much like the "page view"
except that it has overlying page numbers AND the view is
on "normal". I sometimes create very small, graphic
sheets that emphasize a point, and they just get lost in a
sea of empty cells. I sometimes receive excel
spreadsheets that open up as though you can see the
finished doc on a blue background. Is this a 2002 thing?

Again, thanks for all your help.
 
Email me one of these(DO NOT post to the group) and I'll see what I can find
out about it.

Gord Dibben Excel MVP - XL97 SR2 & XL2002
 
Click File, then click Print preview. If your sheet does
not look like its set up right, go to page set-up, also
found under File, and go with either landscape or
portrait and make some margin adjustments if you need
too. Also, click View from your upper tool bar and select
page beak view; you can also make some adjustments there.
Many people forget that these are the very first steps in
setting up a speed sheet before entering information into
cells. If you don't confirm your page set up in page
break view, your client may end up printing 90 blank
sheets of paper. Of course if your client is no longer a
client you may want to do this intentionally laughs. Good
luck.
 
Back
Top