| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing fixed columns and rows
Hi,
I've been working on a macro the last couple of days trying to make it print a few columns and rows that I want to show on every page I print. The macro works fine the first time but after that it will not print out the rows I want it to print on every page. Any help will be greatly appreciated. Thanks. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Printing fixed columns and rows
Please more information
Show us your code rcorona106. We can help you then -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl "rcorona106" wrote in message ... Hi, I've been working on a macro the last couple of days trying to make it print a few columns and rows that I want to show on every page I print. The macro works fine the first time but after that it will not print out the rows I want it to print on every page. Any help will be greatly appreciated. Thanks. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Printing fixed columns and rows
Ok, here is part of the code. The rest of :
With ActiveSheet.PageSetup .PrintTitleRows = "$1:$7" .PrintTitleColumns = "$A:$E" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$43" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.5) .RightMargin = Application.InchesToPoints(0.5) .TopMargin = Application.InchesToPoints(0.5) .BottomMargin = Application.InchesToPoints(0.5) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 300 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = True .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed End With Rows("10:24").Select Selection.EntireRow.Hidden = True Columns("H:J").Select Selection.EntireColumn.Hidden = True ActiveWindow.SmallScroll ToRight:=9 Columns("U:AD").Select Selection.EntireColumn.Hidden = True ActiveWindow.SelectedSheets.PrintPreview End Sub As you can see, there are lots of columns in this spreadsheet. The macro seems to be working fine until I run it again. The initial print preview shows me exactly what I want to print out but as soon as I try to run the macro again I lose the columns a-e and rows 1-7 from the print range. -----Original Message----- Please more information Show us your code rcorona106. We can help you then -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl "rcorona106" wrote in message ... Hi, I've been working on a macro the last couple of days trying to make it print a few columns and rows that I want to show on every page I print. The macro works fine the first time but after that it will not print out the rows I want it to print on every page. Any help will be greatly appreciated. Thanks. . |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Printing fixed columns and rows
Hi
I think the first link on my print page is a better option for you http://www.rondebruin.nl/print.htm#non-contiguous -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl wrote in message ... Ok, here is part of the code. The rest of : With ActiveSheet.PageSetup .PrintTitleRows = "$1:$7" .PrintTitleColumns = "$A:$E" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$43" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.5) .RightMargin = Application.InchesToPoints(0.5) .TopMargin = Application.InchesToPoints(0.5) .BottomMargin = Application.InchesToPoints(0.5) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 300 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = True .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed End With Rows("10:24").Select Selection.EntireRow.Hidden = True Columns("H:J").Select Selection.EntireColumn.Hidden = True ActiveWindow.SmallScroll ToRight:=9 Columns("U:AD").Select Selection.EntireColumn.Hidden = True ActiveWindow.SelectedSheets.PrintPreview End Sub As you can see, there are lots of columns in this spreadsheet. The macro seems to be working fine until I run it again. The initial print preview shows me exactly what I want to print out but as soon as I try to run the macro again I lose the columns a-e and rows 1-7 from the print range. -----Original Message----- Please more information Show us your code rcorona106. We can help you then -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl "rcorona106" wrote in message ... Hi, I've been working on a macro the last couple of days trying to make it print a few columns and rows that I want to show on every page I print. The macro works fine the first time but after that it will not print out the rows I want it to print on every page. Any help will be greatly appreciated. Thanks. . |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Printing fixed columns and rows
Thanks for your help.
-----Original Message----- Hi I think the first link on my print page is a better option for you http://www.rondebruin.nl/print.htm#non-contiguous -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl wrote in message ... Ok, here is part of the code. The rest of : With ActiveSheet.PageSetup .PrintTitleRows = "$1:$7" .PrintTitleColumns = "$A:$E" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$43" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.5) .RightMargin = Application.InchesToPoints(0.5) .TopMargin = Application.InchesToPoints(0.5) .BottomMargin = Application.InchesToPoints(0.5) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 300 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = True .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed End With Rows("10:24").Select Selection.EntireRow.Hidden = True Columns("H:J").Select Selection.EntireColumn.Hidden = True ActiveWindow.SmallScroll ToRight:=9 Columns("U:AD").Select Selection.EntireColumn.Hidden = True ActiveWindow.SelectedSheets.PrintPreview End Sub As you can see, there are lots of columns in this spreadsheet. The macro seems to be working fine until I run it again. The initial print preview shows me exactly what I want to print out but as soon as I try to run the macro again I lose the columns a-e and rows 1-7 from the print range. -----Original Message----- Please more information Show us your code rcorona106. We can help you then -- Regards Ron de Bruin (Win XP Pro SP-1 XL2000-2003) www.rondebruin.nl "rcorona106" wrote in message news:013501c3c4cc$811c3db0 ... Hi, I've been working on a macro the last couple of days trying to make it print a few columns and rows that I want to show on every page I print. The macro works fine the first time but after that it will not print out the rows I want it to print on every page. Any help will be greatly appreciated. Thanks. . . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| printing broken rows/columns | Excel Discussion (Misc queries) | |||
| Rows & Columns Fixed Width / Height | Excel Discussion (Misc queries) | |||
| Fixed 26 million rows, now 16,000 columns- help help! | Excel Discussion (Misc queries) | |||
| Printing many columns but few rows | Excel Discussion (Misc queries) | |||
| Printing problems with columns and rows | Excel Discussion (Misc queries) | |||
Hybrid Mode
