If Select is the solution - how to avoid Select

  • Thread starter Thread starter Stuart
  • Start date Start date
S

Stuart

I'm looping through workbooks, establishing ranges then
printing them, but only if a 'total' is neither blank or zero.
I have:
For i = 1 To UBound(Printvarr)
If Not (IsEmpty(Pagevarr(i + 1).Offset(-1, £Col)) Or _
IsEmpty(Pagevarr(i + 1).Offset(-1, £Col)) _
Or Pagevarr(i + 1).Offset(-1, £Col).Value _
= "0.00") Then
'for testing ... toggle as required
Printvarr(i).PrintPreview
Printvarr(i).PrintOut
End If
Next

This code seems to print all ranges correctly, but includes
zero and blank pages.

If I say:

For i = 1 To UBound(Printvarr)
ws.Activate
Pagevarr(i + 1).Offset(-1, £Col).Select
If Not (IsEmpty(Pagevarr(i + 1).Offset(-1, £Col)) Or _
IsEmpty(Pagevarr(i + 1).Offset(-1, £Col)) _
Or Pagevarr(i + 1).Offset(-1, £Col).Value _
= "0.00") Then
'for testing ... toggle as required
Printvarr(i).PrintPreview
Printvarr(i).PrintOut
End If
Next

Now it seems to exclude empty and zero pages.

If I'm right, then how to Select, please?

Regards.
 
Ooops.
try

If I'm right, then how to AVOID the ws.Activate and
Cell Selection, please?

Regards.
 
Stuart,

I think you need to qualify PageVarr with the worksheet name, e.g.,

ws.PageVarr

Otherwise the code is looking at the PageVarr range on the active sheet. At
least, that's what I think is going on.

hth,

Doug Glancy
 
Back
Top