| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Printing documents without their headers and footers
Hello all,
Some3 or 4 years ago maybe, I have seen an article on this subject. I think this was on a website of one of the MVP's. I cannot find it anymore. Can somebody help? Ofcourse I am looking for a smart way to do just that. Flip |
|
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Printing documents without their headers and footers
You could use a macro containing the following code:
Dim i As Long, j As Long With ActiveDocument UndoClear For i = 1 To .Sections.Count With .Sections(i) For j = 1 To .Headers.Count .Headers(j).Range.Delete Next j For j = 1 To .Footers.Count .Footers(j).Range.Delete Next j End With Next i .PrintOut Do While .Undo = True .Undo Loop End With -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Flip" flipatkonitechpuntnl wrote in message ... Hello all, Some3 or 4 years ago maybe, I have seen an article on this subject. I think this was on a website of one of the MVP's. I cannot find it anymore. Can somebody help? Ofcourse I am looking for a smart way to do just that. Flip |
|
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Printing documents without their headers and footers
You could use a macro containing the following code: Dim i As Long, j As Long With ActiveDocument UndoClear For i = 1 To .Sections.Count With .Sections(i) For j = 1 To .Headers.Count .Headers(j).Range.Delete Next j For j = 1 To .Footers.Count .Footers(j).Range.Delete Next j End With Next i .PrintOut Do While .Undo = True .Undo Loop End With -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Flip" flipatkonitechpuntnl wrote in message ... Hello all, Some3 or 4 years ago maybe, I have seen an article on this subject. I think this was on a website of one of the MVP's. I cannot find it anymore. Can somebody help? Ofcourse I am looking for a smart way to do just that. Flip |
|
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Printing documents without their headers and footers
Great!
Thanks Doug. Flip "Doug Robbins - Word MVP" schreef in bericht ... You could use a macro containing the following code: Dim i As Long, j As Long With ActiveDocument UndoClear For i = 1 To .Sections.Count With .Sections(i) For j = 1 To .Headers.Count .Headers(j).Range.Delete Next j For j = 1 To .Footers.Count .Footers(j).Range.Delete Next j End With Next i .PrintOut Do While .Undo = True .Undo Loop End With -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Flip" flipatkonitechpuntnl wrote in message ... Hello all, Some3 or 4 years ago maybe, I have seen an article on this subject. I think this was on a website of one of the MVP's. I cannot find it anymore. Can somebody help? Ofcourse I am looking for a smart way to do just that. Flip |
|
#5
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Printing documents without their headers and footers
Great! Thanks Doug. Flip "Doug Robbins - Word MVP" schreef in bericht ... You could use a macro containing the following code: Dim i As Long, j As Long With ActiveDocument UndoClear For i = 1 To .Sections.Count With .Sections(i) For j = 1 To .Headers.Count .Headers(j).Range.Delete Next j For j = 1 To .Footers.Count .Footers(j).Range.Delete Next j End With Next i .PrintOut Do While .Undo = True .Undo Loop End With -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Flip" flipatkonitechpuntnl wrote in message ... Hello all, Some3 or 4 years ago maybe, I have seen an article on this subject. I think this was on a website of one of the MVP's. I cannot find it anymore. Can somebody help? Ofcourse I am looking for a smart way to do just that. Flip |
|
#6
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Printing documents without their headers and footers
While Doug's macro may do what you want, if you want to retain the space the
header/footer occupied e.g. when printing to pre-printed letterheaded paper, then you need a different approach. See http://www.gmayor.com/Optionally_print_letterhead.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Flip" flipatkonitechpuntnl wrote in message ... Great! Thanks Doug. Flip "Doug Robbins - Word MVP" schreef in bericht ... You could use a macro containing the following code: Dim i As Long, j As Long With ActiveDocument UndoClear For i = 1 To .Sections.Count With .Sections(i) For j = 1 To .Headers.Count .Headers(j).Range.Delete Next j For j = 1 To .Footers.Count .Footers(j).Range.Delete Next j End With Next i .PrintOut Do While .Undo = True .Undo Loop End With -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Flip" flipatkonitechpuntnl wrote in message ... Hello all, Some3 or 4 years ago maybe, I have seen an article on this subject. I think this was on a website of one of the MVP's. I cannot find it anymore. Can somebody help? Ofcourse I am looking for a smart way to do just that. Flip |
|
#7
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Printing documents without their headers and footers
While Doug's macro may do what you want, if you want to retain the space the header/footer occupied e.g. when printing to pre-printed letterheaded paper, then you need a different approach. See http://www.gmayor.com/Optionally_print_letterhead.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Flip" flipatkonitechpuntnl wrote in message ... Great! Thanks Doug. Flip "Doug Robbins - Word MVP" schreef in bericht ... You could use a macro containing the following code: Dim i As Long, j As Long With ActiveDocument UndoClear For i = 1 To .Sections.Count With .Sections(i) For j = 1 To .Headers.Count .Headers(j).Range.Delete Next j For j = 1 To .Footers.Count .Footers(j).Range.Delete Next j End With Next i .PrintOut Do While .Undo = True .Undo Loop End With -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Flip" flipatkonitechpuntnl wrote in message ... Hello all, Some3 or 4 years ago maybe, I have seen an article on this subject. I think this was on a website of one of the MVP's. I cannot find it anymore. Can somebody help? Ofcourse I am looking for a smart way to do just that. Flip |
|
#8
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Printing documents without their headers and footers
This must be te article I was searching for. Thanks, bookmarked it now. Flip "Graham Mayor" schreef in bericht ... While Doug's macro may do what you want, if you want to retain the space the header/footer occupied e.g. when printing to pre-printed letterheaded paper, then you need a different approach. See http://www.gmayor.com/Optionally_print_letterhead.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Flip" flipatkonitechpuntnl wrote in message ... Great! Thanks Doug. Flip "Doug Robbins - Word MVP" schreef in bericht ... You could use a macro containing the following code: Dim i As Long, j As Long With ActiveDocument UndoClear For i = 1 To .Sections.Count With .Sections(i) For j = 1 To .Headers.Count .Headers(j).Range.Delete Next j For j = 1 To .Footers.Count .Footers(j).Range.Delete Next j End With Next i .PrintOut Do While .Undo = True .Undo Loop End With -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Flip" flipatkonitechpuntnl wrote in message ... Hello all, Some3 or 4 years ago maybe, I have seen an article on this subject. I think this was on a website of one of the MVP's. I cannot find it anymore. Can somebody help? Ofcourse I am looking for a smart way to do just that. Flip |
|
#9
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
|
Printing documents without their headers and footers
This must be te article I was searching for. Thanks, bookmarked it now. Flip "Graham Mayor" schreef in bericht ... While Doug's macro may do what you want, if you want to retain the space the header/footer occupied e.g. when printing to pre-printed letterheaded paper, then you need a different approach. See http://www.gmayor.com/Optionally_print_letterhead.htm -- Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org "Flip" flipatkonitechpuntnl wrote in message ... Great! Thanks Doug. Flip "Doug Robbins - Word MVP" schreef in bericht ... You could use a macro containing the following code: Dim i As Long, j As Long With ActiveDocument UndoClear For i = 1 To .Sections.Count With .Sections(i) For j = 1 To .Headers.Count .Headers(j).Range.Delete Next j For j = 1 To .Footers.Count .Footers(j).Range.Delete Next j End With Next i .PrintOut Do While .Undo = True .Undo Loop End With -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP, originally posted via msnews.microsoft.com "Flip" flipatkonitechpuntnl wrote in message ... Hello all, Some3 or 4 years ago maybe, I have seen an article on this subject. I think this was on a website of one of the MVP's. I cannot find it anymore. Can somebody help? Ofcourse I am looking for a smart way to do just that. Flip |
| Reply |
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Printing (or not) headers and footers | Page Layout | |||
| how can I stop my headers and footers from printing out | Microsoft Word Help | |||
| Headers and Footers not printing | Microsoft Word Help | |||
| Headers and footers printing different size on odd and even pages | Microsoft Word Help | |||
| can I prevent headers/footers from printing? | Microsoft Word Help | |||
![Flip[_2_] is offline](images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
