Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print Active Pages in the Worksheet
Hi,
Each worksheet has 25 pages in it. Some have values some don't. I was wondering if anybody cen help me with a Module Level Macro that lets me print pages provided a cell on that page is not equal to zero (0) Here it is: Print page two if F65 < 0 Print page three if F117 < 0 Print page four if F169 < 0 Print page five if F221 < 0 and on . . . until page 25 if cell F1261 < 0 (pattern is every 52 cells beginning with F65 and ending with F1261) Anybody?? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print Active Pages in the Worksheet
Maybe
for i=65 to 1261 step 52 if range("F" & i)<0 then set print range to rows (i, i+51) printout end if next i "Gerard Sanchez" wrote in message ... Hi, Each worksheet has 25 pages in it. Some have values some don't. I was wondering if anybody cen help me with a Module Level Macro that lets me print pages provided a cell on that page is not equal to zero (0) Here it is: Print page two if F65 < 0 Print page three if F117 < 0 Print page four if F169 < 0 Print page five if F221 < 0 and on . . . until page 25 if cell F1261 < 0 (pattern is every 52 cells beginning with F65 and ending with F1261) Anybody?? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print Active Pages in the Worksheet
Hi KC
Just tested the code as shown and I got a syntax error? Sub PrintActivePages() For i = 65 To 1261 Step 52 If Range("F" & i) < 0 Then set print range to rows (i, i+51) <--------syntax error here PrintOut End If Next i End Sub "KC" wrote in message ... Maybe for i=65 to 1261 step 52 if range("F" & i)<0 then set print range to rows (i, i+51) printout end if next i "Gerard Sanchez" wrote in message ... Hi, Each worksheet has 25 pages in it. Some have values some don't. I was wondering if anybody cen help me with a Module Level Macro that lets me print pages provided a cell on that page is not equal to zero (0) Here it is: Print page two if F65 < 0 Print page three if F117 < 0 Print page four if F169 < 0 Print page five if F221 < 0 and on . . . until page 25 if cell F1261 < 0 (pattern is every 52 cells beginning with F65 and ending with F1261) Anybody?? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print Active Pages in the Worksheet
That is a pseudo code, not actual code.
The macro recorder can help you. "Gerard Sanchez" wrote in message ... Hi KC Just tested the code as shown and I got a syntax error? Sub PrintActivePages() For i = 65 To 1261 Step 52 If Range("F" & i) < 0 Then set print range to rows (i, i+51) <--------syntax error here PrintOut End If Next i End Sub "KC" wrote in message ... Maybe for i=65 to 1261 step 52 if range("F" & i)<0 then set print range to rows (i, i+51) printout end if next i "Gerard Sanchez" wrote in message ... Hi, Each worksheet has 25 pages in it. Some have values some don't. I was wondering if anybody cen help me with a Module Level Macro that lets me print pages provided a cell on that page is not equal to zero (0) Here it is: Print page two if F65 < 0 Print page three if F117 < 0 Print page four if F169 < 0 Print page five if F221 < 0 and on . . . until page 25 if cell F1261 < 0 (pattern is every 52 cells beginning with F65 and ending with F1261) Anybody?? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print Active Pages in the Worksheet
Can anybody help?? "KC" wrote in message ... That is a pseudo code, not actual code. The macro recorder can help you. "Gerard Sanchez" wrote in message ... Hi KC Just tested the code as shown and I got a syntax error? Sub PrintActivePages() For i = 65 To 1261 Step 52 If Range("F" & i) < 0 Then set print range to rows (i, i+51) <--------syntax error here PrintOut End If Next i End Sub "KC" wrote in message ... Maybe for i=65 to 1261 step 52 if range("F" & i)<0 then set print range to rows (i, i+51) printout end if next i "Gerard Sanchez" wrote in message ... Hi, Each worksheet has 25 pages in it. Some have values some don't. I was wondering if anybody cen help me with a Module Level Macro that lets me print pages provided a cell on that page is not equal to zero (0) Here it is: Print page two if F65 < 0 Print page three if F117 < 0 Print page four if F169 < 0 Print page five if F221 < 0 and on . . . until page 25 if cell F1261 < 0 (pattern is every 52 cells beginning with F65 and ending with F1261) Anybody?? |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to Print Active Pages in the Worksheet
Maybe...
Option Explicit Sub testme() Dim iRow As Long with Activesheet For iRow = 65 To 169 Step 52 'change 169 to 1261 when you're ready! If .Cells(iRow, "F").Value < 0 Then .Cells(Row, "A").Resize(52, 99).PrintOut preview:=True End If Next iRow End With End Sub I assumed that the start of the page is column A of that same row as the one being checked. And you want to print 99 columns. You'll have to change that or at least share how to determine both those things. And I did a print preview to save paper when you're testing. And I used row 169 as my last check--change that when you're ready to try it for real. Gerard Sanchez wrote: Can anybody help?? "KC" wrote in message ... That is a pseudo code, not actual code. The macro recorder can help you. "Gerard Sanchez" wrote in message ... Hi KC Just tested the code as shown and I got a syntax error? Sub PrintActivePages() For i = 65 To 1261 Step 52 If Range("F" & i) < 0 Then set print range to rows (i, i+51) <--------syntax error here PrintOut End If Next i End Sub "KC" wrote in message ... Maybe for i=65 to 1261 step 52 if range("F" & i)<0 then set print range to rows (i, i+51) printout end if next i "Gerard Sanchez" wrote in message ... Hi, Each worksheet has 25 pages in it. Some have values some don't. I was wondering if anybody cen help me with a Module Level Macro that lets me print pages provided a cell on that page is not equal to zero (0) Here it is: Print page two if F65 < 0 Print page three if F117 < 0 Print page four if F169 < 0 Print page five if F221 < 0 and on . . . until page 25 if cell F1261 < 0 (pattern is every 52 cells beginning with F65 and ending with F1261) Anybody?? -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Number of pages in worksheet doesn't match Print Preview pages | Excel Discussion (Misc queries) | |||
how do you print 2 pages per worksheet | Excel Discussion (Misc queries) | |||
how do you print 2 pages per worksheet | Excel Discussion (Misc queries) | |||
need a print macro to print only a certain number of pages | Excel Discussion (Misc queries) | |||
Code to print most (not all) pages within active workbook | Excel Programming |