Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Please help with code.....
(Continued)
getting error...am I trying to do something I shouldn't...here is the beginning of my sub...this is the only area I'm having a problem with... error message reads:"Unable to set the PrintTitleRows property of the page setup class".... Sub props() Dim myrows As Range Titles = MsgBox("Do any rows need to repeat?", vbYesNo, "Repeating Titles") If Titles = vbYes Then Set myrows = Nothing On Error Resume Next Set myrows = Application.InputBox("Select rows to repeat at top", Type:=8) On Error GoTo 0 If Not myrows Is Nothing Then ' rows were selected Set myrows = myrows.EntireRow ' set the rows to repeat at top With ActiveSheet.PageSetup .PrintTitleRows = myrows ***this is the line of my problem .PrintTitleColumns = "" End With Else: With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With End If End If |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Please help with code.....
Already answered:
.PrintTitleRows = myrows.Address(1,1,xlA1) Please stay in your original thread. See there for a more complete answer. -- Regards, Tom Ogivly "jasminesy" wrote: (Continued) getting error...am I trying to do something I shouldn't...here is the beginning of my sub...this is the only area I'm having a problem with... error message reads:"Unable to set the PrintTitleRows property of the page setup class".... Sub props() Dim myrows As Range Titles = MsgBox("Do any rows need to repeat?", vbYesNo, "Repeating Titles") If Titles = vbYes Then Set myrows = Nothing On Error Resume Next Set myrows = Application.InputBox("Select rows to repeat at top", Type:=8) On Error GoTo 0 If Not myrows Is Nothing Then ' rows were selected Set myrows = myrows.EntireRow ' set the rows to repeat at top With ActiveSheet.PageSetup .PrintTitleRows = myrows ***this is the line of my problem .PrintTitleColumns = "" End With Else: With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With End If End If |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Please help with code.....
You need the address not a range object. Give this a whirl...
..PrintTitleRows = myrows.entirerow.address -- HTH... Jim Thomlinson "jasminesy" wrote: (Continued) getting error...am I trying to do something I shouldn't...here is the beginning of my sub...this is the only area I'm having a problem with... error message reads:"Unable to set the PrintTitleRows property of the page setup class".... Sub props() Dim myrows As Range Titles = MsgBox("Do any rows need to repeat?", vbYesNo, "Repeating Titles") If Titles = vbYes Then Set myrows = Nothing On Error Resume Next Set myrows = Application.InputBox("Select rows to repeat at top", Type:=8) On Error GoTo 0 If Not myrows Is Nothing Then ' rows were selected Set myrows = myrows.EntireRow ' set the rows to repeat at top With ActiveSheet.PageSetup .PrintTitleRows = myrows ***this is the line of my problem .PrintTitleColumns = "" End With Else: With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With End If End If |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Please help with code.....
Sorry, but I refreshed the page for quite a while thought you might have
thought it was done... FYI...Thank you it worked... "Tom Ogilvy" wrote: Already answered: .PrintTitleRows = myrows.Address(1,1,xlA1) Please stay in your original thread. See there for a more complete answer. -- Regards, Tom Ogivly "jasminesy" wrote: (Continued) getting error...am I trying to do something I shouldn't...here is the beginning of my sub...this is the only area I'm having a problem with... error message reads:"Unable to set the PrintTitleRows property of the page setup class".... Sub props() Dim myrows As Range Titles = MsgBox("Do any rows need to repeat?", vbYesNo, "Repeating Titles") If Titles = vbYes Then Set myrows = Nothing On Error Resume Next Set myrows = Application.InputBox("Select rows to repeat at top", Type:=8) On Error GoTo 0 If Not myrows Is Nothing Then ' rows were selected Set myrows = myrows.EntireRow ' set the rows to repeat at top With ActiveSheet.PageSetup .PrintTitleRows = myrows ***this is the line of my problem .PrintTitleColumns = "" End With Else: With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With End If End If |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
Modification in the CODE to HIDE rows and columns that start with ZERO (code given) | Excel Programming | |||
Excel code convert to Access code - Concat & eliminate duplicates | Excel Programming |