I have a macro that will hide unused rows in a spreadsheet, print the
active sheet, then unhide the rows.
Spreadsheet is from cell A1 to P175. Base info is recorded in various
cells on rows 1 to 4.
Cells 5 to 16 display output.
The main Data input starts in cell A18 to G 167. A18 is a from date, B18
to date, with comments in column P.
Because I have 150 lines that could be used, I want to hide unused rows
when printing to reduce the pages.
Rows 168 to 175 display results and are not hidden.
Here is the macro I have. It works but runs very slowly. I'm lookig for
ways to speed it up.
Option Explicit
Sub PrintNonBlankColA()
Dim RowCrnt As Integer
Dim RowLast As Integer
' Note: This operates on the active worksheet
Application.ScreenUpdating = False
RowLast = Cells.SpecialCells(xlCellTypeLastCell).Row
' Hide all rows with a used cell and column "A" empty
For RowCrnt = 18 To RowLast
If IsEmpty(Cells(RowCrnt, "A")) Then
Range(RowCrnt & ":" & RowCrnt).EntireRow.Hidden = True
End If
Next
Range("A1:Q175").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$Q$175"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Rows("17:168").Select
Selection.EntireRow.Hidden = False
Range("B2").Select
End Sub
any suggestions to speed it up appreciated.
Mel
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
