Printing Issue When Using A Table

macropod · #5 04-29-2011, 05:13 AM

Hi Christine,

I think this one would be beyond the macro recorder's capabilities. Try the following:

Code:

Sub PartPrint()
Application.ScreenUpdating = False
Dim RngPrn As Range, RngClr As Range
With ActiveDocument
  Set RngPrn = .GoTo(What:=wdGoToPage, Name:=.Range.Information(wdActiveEndPageNumber))
  Set RngPrn = RngPrn.GoTo(What:=wdGoToBookmark, Name:="\page")
  Set RngClr = RngPrn
  With RngPrn
    .End = Selection.Range.Start
    .Font.Color = wdColorWhite
  Application.PrintOut Range:=wdPrintCurrentPage
  End With
  .Undo
End With
Application.ScreenUpdating = True
End Sub

For installation instructions, see: http://www.gmayor.com/installing_macro.htm

If you add the macro to Word's 'Normal' template it will be available for use with any document. To use, simply press Alt-F8 and choose 'part print'. It will only print the current page and any type preceding the current insertion point will not be printed (unless you've got a coloured paper and white ink!)

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