Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing ranges error
I have a print routine where an array holds the ranges/pages to
be printed. rng1 is the range/page, and it is loaded into an array (printvarr) as follows: For Each ws In ActiveWorkbook.Worksheets() With ws 'Build an array of the ranges to be printed in this sheet ReDim Printvarr(1 To 1) For j = 1 To UBound(Pagevarr) - 1 Set rng1 = .Range(Pagevarr(j), Pagevarr(j + 1) _ .Offset(-1, 0)).Resize(, ColsToPrint) ' rng1.Copy 'used to visually check the correct range was copied If IsEmpty(Printvarr(1)) Then Set Printvarr(1) = rng1 Else ReDim Preserve Printvarr(1 To UBound(Printvarr) + 1) Set Printvarr(UBound(Printvarr)) = rng1 End If Next ' At this point rng1 is correctly defined and ColToPrint = 7 If Not IsEmpty(Printvarr(1)) Then With ActiveSheet.PageSetup .Zoom = False .LeftMargin = 0 .RightMargin = 0 .TopMargin = 0 .BottomMargin = 0 .HeaderMargin = 0 .FooterMargin = 0 .CenterHorizontally = True .CenterVertically = True If ColsToPrint 7 Then .Orientation = xlLandscape Else .Orientation = xlPortrait End If End With For i = 1 To UBound(Printvarr) ' with £Col = 6 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 End If End With Next rng1 shows columns A to G being in the range, but PrintPreview only shows A to F. Why is this, please? Regards. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.688 / Virus Database: 449 - Release Date: 18/05/2004 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Printing ranges | Excel Discussion (Misc queries) | |||
Printing ranges | Excel Discussion (Misc queries) | |||
printing Union of Ranges | Excel Worksheet Functions | |||
Printing ranges not remembered | Excel Discussion (Misc queries) | |||
Printing Ranges | Excel Programming |