![]() |
|
#8
|
||||
|
||||
|
Hi Christine,
Try the following revised code: Code:
Sub PartPrint()
Application.ScreenUpdating = False
Dim RngPrn As Range, RngSel As Range, oTbl As Table, oCel As Cell, i As Long, j As Long
With ActiveDocument
Set RngPrn = .GoTo(What:=wdGoToPage, Name:=.Range.Information(wdActiveEndPageNumber))
Set RngPrn = RngPrn.GoTo(What:=wdGoToBookmark, Name:="\page")
Set RngSel = Selection.Range
With RngPrn
.End = RngSel.Start
.Font.Color = wdColorWhite
For Each oTbl In RngPrn.Tables
For Each oCel In oTbl.Range.Cells
For j = 1 To oCel.Borders.Count
oCel.Borders(j).Color = wdColorWhite
i = i + 1
Next
Next
Next
Application.PrintOut Range:=wdPrintCurrentPage
End With
For j = 1 To i
.Undo
If RngPrn.Font.Color <> wdColorWhite Then Exit For
Next
RngSel.Select
End With
Application.ScreenUpdating = True
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Caption and Table of Figures issue
|
reece22345 | Word | 3 | 04-15-2011 12:18 AM |
Issue with Last Row in Table
|
BabyBoomerBooster | Word Tables | 1 | 02-25-2011 02:49 AM |
| Powerpoint printing issue | eidius | PowerPoint | 1 | 01-13-2011 07:38 AM |
| Non-Printing Graphics vs Printing | v_kiviranna | Drawing and Graphics | 4 | 06-29-2010 07:04 AM |
| Pasting table in Photoshop cutting off table | azdolfan | Word Tables | 0 | 05-16-2010 01:52 PM |