Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Print routine needed for code
Hi I hope someone can help me with this I want to run this on a sheet carlog before printing but I cant work out how to put the print routine in, anyone!!!! Sub HideRows() Dim i As Long Application.ScreenUpdating = False For i = 10 To 44 For j = 10 To 44 If Range("A" & i).Value = "" Then Range("A" & i).EntireRow.Hidden = True End If If Range("b" & j).Value = 0 Then Range("b" & j).EntireRow.Hidden = True End If Next 'i Next 'j Application.ScreenUpdating = True End Sub |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Print routine needed for code
If the macro does what you want then put it in the 'Before print, event.
Double click this workbook in VB editor. Select workbook from the dropdown and then 'before print' from the other dropdown and paste your code in. Mike "pano" wrote: Hi I hope someone can help me with this I want to run this on a sheet carlog before printing but I cant work out how to put the print routine in, anyone!!!! Sub HideRows() Dim i As Long Application.ScreenUpdating = False For i = 10 To 44 For j = 10 To 44 If Range("A" & i).Value = "" Then Range("A" & i).EntireRow.Hidden = True End If If Range("b" & j).Value = 0 Then Range("b" & j).EntireRow.Hidden = True End If Next 'i Next 'j Application.ScreenUpdating = True End Sub |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Print routine needed for code
On Feb 11, 9:57 pm, Mike wrote:
If the macro does what you want then put it in the 'Before print, event. Double click this workbook in VB editor. Select workbook from the dropdown and then 'before print' from the other dropdown and paste your code in. Mike "pano" wrote: Hi I hope someone can help me with this I want to run this on a sheet carlog before printing but I cant work out how to put the print routine in, anyone!!!! Sub HideRows() Dim i As Long Application.ScreenUpdating = False For i = 10 To 44 For j = 10 To 44 If Range("A" & i).Value = "" Then Range("A" & i).EntireRow.Hidden = True End If If Range("b" & j).Value = 0 Then Range("b" & j).EntireRow.Hidden = True End If Next 'i Next 'j Application.ScreenUpdating = True End Sub- Hide quoted text - - Show quoted text - Thanks for that |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Print routine needed for code
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Print separate reports with same column heading | Excel Discussion (Misc queries) | |||
Conditional formats don't print | Excel Discussion (Misc queries) | |||
XL print preview should show grayscale if chosen on color printer | Excel Discussion (Misc queries) | |||
changing print area in an entire workbook | Excel Worksheet Functions | |||
Varying page Excel report | Excel Discussion (Misc queries) |