Print Area

I even copied and pasted what you wrote. I am still geting 28 pages with
headings and column k is not fitting in the page. Only a thru j and then k
few pages back. Now in Column L i have formulas all the way to L500 could
this be affecting it?

"Patrick Molloy" wrote:

> seems ok to me...
> Sub PrintActiveSheet()
> Dim srow As Long
> Dim erow As Long
> srow = 2
> erow = 99
>
> 'Print range column a thru K
> ActiveSheet.PageSetup.PrintArea = "a" & srow & ":K" & erow
> With ActiveSheet.PageSetup
> .Orientation = xlLandscape
> .FitToPagesWide = 1
> .BlackAndWhite = True
> .PrintComments = xlPrintNoComments
> .LeftFooter = "MFV"
> .RightFooter = "&d"
> .CenterHorizontally = True
> ActiveSheet.PrintPreview
> End With
> ActiveSheet.PrintPreview
>
> End Sub
>
>
>
> "Jennifer" wrote:
>
> > Hi,
> > I have a macro that filters data to a worksheet I then want the user to view
> > and print the filtered area if they want. So I have this macro that prints a
> > thru k problem is it doesn't just print the area with data it keeps print all
> > the way down the page. Can anyone tell me what I need to add to just print
> > the area that changes.
> >
> > Sub PrintActiveSheet()
> > '
> > ' PrintActiveSheet Macro
> > ' Macro created 4/17/2005 by Jennifer S. Klever
> > ActiveSheet.Unprotect
> > 'Sort active range
> > Worksheets("FilterDate").Range("A7").Sort _
> > Key1:=Worksheets("FilterDate").Columns("a"), _
> > Key2:=Worksheets("filterDate").Columns("b"), _
> > Header:=xlGuess
> > 'Print range column a thru K
> > ActiveSheet.PageSetup.PrintArea = "a" & SRow & ":K" & ERow
> > With ActiveSheet.PageSetup
> > .Orientation = xlLandscape
> > .FitToPagesWide = 1
> > .BlackAndWhite = True
> > .PrintComments = xlPrintNoComments
> > .LeftFooter = "MFV"
> > .RightFooter = "&d"
> > .CenterHorizontally = True
> >
> > End With
> > ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, collate:=True
> >
> > End Sub
> > --
> > Though daily learning, I LOVE EXCEL!
> > Jennifer

Not if you properly set your print area.

Manually, do Insert=>Name

Look at the printarea name's refers to. Does it appear correct - what you
expected?

If so, do a manual printPreview - is it correct.

--
Regards,
Tom Ogilvy


"Jennifer" <Jennifer@discussions.microsoft.com> wrote in message
news:A9A25426-16DA-406F-9AE6-BF66D506E05C@microsoft.com...
> I even copied and pasted what you wrote. I am still geting 28 pages with
> headings and column k is not fitting in the page. Only a thru j and then k
> few pages back. Now in Column L i have formulas all the way to L500 could
> this be affecting it?
>
> "Patrick Molloy" wrote:
>
> > seems ok to me...
> > Sub PrintActiveSheet()
> > Dim srow As Long
> > Dim erow As Long
> > srow = 2
> > erow = 99
> >
> > 'Print range column a thru K
> > ActiveSheet.PageSetup.PrintArea = "a" & srow & ":K" & erow
> > With ActiveSheet.PageSetup
> > .Orientation = xlLandscape
> > .FitToPagesWide = 1
> > .BlackAndWhite = True
> > .PrintComments = xlPrintNoComments
> > .LeftFooter = "MFV"
> > .RightFooter = "&d"
> > .CenterHorizontally = True
> > ActiveSheet.PrintPreview
> > End With
> > ActiveSheet.PrintPreview
> >
> > End Sub
> >
> >
> >
> > "Jennifer" wrote:
> >
> > > Hi,
> > > I have a macro that filters data to a worksheet I then want the user
to view
> > > and print the filtered area if they want. So I have this macro that
prints a
> > > thru k problem is it doesn't just print the area with data it keeps
print all
> > > the way down the page. Can anyone tell me what I need to add to just
print
> > > the area that changes.
> > >
> > > Sub PrintActiveSheet()
> > > '
> > > ' PrintActiveSheet Macro
> > > ' Macro created 4/17/2005 by Jennifer S. Klever
> > > ActiveSheet.Unprotect
> > > 'Sort active range
> > > Worksheets("FilterDate").Range("A7").Sort _
> > > Key1:=Worksheets("FilterDate").Columns("a"), _
> > > Key2:=Worksheets("filterDate").Columns("b"), _
> > > Header:=xlGuess
> > > 'Print range column a thru K
> > > ActiveSheet.PageSetup.PrintArea = "a" & SRow & ":K" & ERow
> > > With ActiveSheet.PageSetup
> > > .Orientation = xlLandscape
> > > .FitToPagesWide = 1
> > > .BlackAndWhite = True
> > > .PrintComments = xlPrintNoComments
> > > .LeftFooter = "MFV"
> > > .RightFooter = "&d"
> > > .CenterHorizontally = True
> > >
> > > End With
> > > ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True,
collate:=True
> > >
> > > End Sub
> > > --
> > > Though daily learning, I LOVE EXCEL!
> > > Jennifer