Print Page nn in Several Sheets

  • Thread starter Thread starter Evan
  • Start date Start date
E

Evan

The only way I can print a particular page in a workbook
is to note the page number in the print preview and enter
it with Print... > Page(s) > From > To. The workbook
consists of several sheets, each ith several pages. The
first page of the first sheet is >1, and the rest are
contiguous. Is that it? There's nothing like Current
Page?

Annoyance: to find the page, I have to select all sheets
and plod through the print preview from the very beginning
until I find the page of interest.
 
If you are trying to do this manually just goto the page (tab) desired>click
the print icon on the taskbar
 
If the size of your "pages" are static (you're not constantly adding or
deleting rows and/or columns), you could simply pre-select your pages and
name them as separate ranges (pg1, pg2 ...etc.).
Then, when it's time to print, just click the name in the name box.
This selects the page in question where, while it's *still* selected, you
can then :
<File> <Print> and under "PrintWhat", click <Selection>.

If your "page" sizes are constantly changing, you can still manually select
exactly what you wish to print and use the same print options above.

If this is an ongoing occurrence, you could add the "SetPrintArea" icon to
your toolbar, so that after a selection is made, simply click the icon, and
then click the print icon.
--

HTH,

RD
==============================================
Please keep all correspondence within the Group, so all may benefit!
==============================================


The only way I can print a particular page in a workbook
is to note the page number in the print preview and enter
it with Print... > Page(s) > From > To. The workbook
consists of several sheets, each ith several pages. The
first page of the first sheet is >1, and the rest are
contiguous. Is that it? There's nothing like Current
Page?

Annoyance: to find the page, I have to select all sheets
and plod through the print preview from the very beginning
until I find the page of interest.
 
Hi Evan

Try this with a macro

Sub PrintCurrentPage()
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim NumPage As Integer

If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In ActiveSheet.VPageBreaks
If VPB.Location.Column > ActiveCell.Column Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Location.Row > ActiveCell.Row Then Exit For
NumPage = NumPage + VPC
Next HPB
'MsgBox "Page number of the active cell = " & NumPage
ActiveWindow.SelectedSheets.PrintOut _
From:=NumPage, To:=NumPage, _
Copies:=1, Collate:=True
End Sub
 
Back
Top