Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Inserting Page Breaks
I have a workbook that I am sorting into multiple pages for faxing. have written a simple equation that puts an "X" in a cell and I woul like to put a page break at each instance of an "X" in a column. Is this possible to do automatically? Chris Nelso -- chrisnelsonusa ----------------------------------------------------------------------- chrisnelsonusa1's Profile: http://www.excelforum.com/member.php...fo&userid=2952 View this thread: http://www.excelforum.com/showthread.php?threadid=49226 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Inserting Page Breaks
I don't know of a way to write it into a formula but, an easy way to do page
breaks is to go to "View", then select "Page Break View". You can then drag the breaks (the dashed lines) where you want them, then go back to normal view. "chrisnelsonusa1" wrote: I have a workbook that I am sorting into multiple pages for faxing. I have written a simple equation that puts an "X" in a cell and I would like to put a page break at each instance of an "X" in a column. Is this possible to do automatically? Chris Nelson -- chrisnelsonusa1 ------------------------------------------------------------------------ chrisnelsonusa1's Profile: http://www.excelforum.com/member.php...o&userid=29526 View this thread: http://www.excelforum.com/showthread...hreadid=492267 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Inserting Page Breaks
Here is one way. The sub "TEST" calls the function that does it. The argument
is an integer representing the column number in which your "X" appears. This puts the break below the "X", if you want it above the "X" then remove the "+1": Sub test() Call PageBreakVerticalAdd(1) End Sub Public Function PageBreakVerticalAdd(argColumn As Integer) Dim rCell As Range For Each rCell In ActiveSheet.UsedRange.Columns(argColumn).Rows If UCase(rCell.FormulaR1C1) = "X" Then ActiveSheet.HPageBreaks.Add Befo=Cells(rCell.Row + 1, 1) End If Next rCell End Function HTH/ "chrisnelsonusa1" wrote: I have a workbook that I am sorting into multiple pages for faxing. I have written a simple equation that puts an "X" in a cell and I would like to put a page break at each instance of an "X" in a column. Is this possible to do automatically? Chris Nelson -- chrisnelsonusa1 ------------------------------------------------------------------------ chrisnelsonusa1's Profile: http://www.excelforum.com/member.php...o&userid=29526 View this thread: http://www.excelforum.com/showthread...hreadid=492267 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Inserting page breaks | Excel Worksheet Functions | |||
Inserting Page Breaks | Excel Discussion (Misc queries) | |||
Inserting Page Breaks | Excel Discussion (Misc queries) | |||
inserting page breaks automtically | Excel Programming | |||
Inserting Page Breaks every 40 lines... | Excel Programming |