Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to change repeat row/column print setting
Hi. I need to set the repeat rows/columns option in page
setup for a set of workbooks I am printing. I tried recording a macro to do this but it does not change anything. It did loop through the sheets but no changes were made. There are several page setup settings already so I would like to not have to redo those. And I really only need to select one sheet at a time. My computer at work is slow and likes to crash if I ask very much of it. TIA Todd Sub PrintRows() ' Keyboard Shortcut: Ctrl+u For Each WS In Worksheets With ActiveSheet.PageSetup .PrintTitleRows = "$7:$10" .PrintTitleColumns = "$A:$A" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.75) .RightMargin = Application.InchesToPoints(0.75) .TopMargin = Application.InchesToPoints(1) .BottomMargin = Application.InchesToPoints(1) .HeaderMargin = Application.InchesToPoints(0.5) .FooterMargin = Application.InchesToPoints(0.5) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 100 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = True .Zoom = 100 End With Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro to change repeat row/column print setting
Sub PrintRows()
For Each WS In Worksheets With ActiveSheet.PageSetup .PrintTitleRows = "$7:$10" .PrintTitleColumns = "$A:$A" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" End With Next End Sub for each ws in activeworkbook.worksheets BUT you dont seem to use the ws object at all, instead you use the activesheet, but you forget to activate each ws as you go along inside your loop you could do 2 things: '1: ws.activate with activesheet.pagesetup '2: with ws.pagesetup I'd always pick the last method.. keepITcool < email : keepitcool chello nl (with @ and .) < homepage: http://members.chello.nl/keepitcool "Todd" wrote: Hi. I need to set the repeat rows/columns option in page setup for a set of workbooks I am printing. I tried recording a macro to do this but it does not change anything. It did loop through the sheets but no changes were made. There are several page setup settings already so I would like to not have to redo those. And I really only need to select one sheet at a time. My computer at work is slow and likes to crash if I ask very much of it. TIA Todd |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Change print titles (rows to repeat at top) on subsequent pages | Excel Discussion (Misc queries) | |||
macro to repeat non contiguous rows at top in Print | Excel Discussion (Misc queries) | |||
Setting different rows to repeat for print. | Excel Discussion (Misc queries) | |||
How I can print full text bigger than column, in repeat column | Excel Discussion (Misc queries) | |||
Setting up a macro to print? | Excel Worksheet Functions |