Printing macro

R

Ron

I have a macro that was made by someone else and I need to modify it so the
printer dialog box comes up instead of just printing the document but I'm
not sure how to do that. It works fine the way it is now but the option to
change printers or do more than one copy isn't available. Does anyone know
how to fix this? This is the macro:

Sub PrintNoGraphics()
'
' printnographics Macro
'
With Options
.UpdateFieldsAtPrint = False
.UpdateLinksAtPrint = False
.DefaultTray = "Use printer settings"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintDrawingObjects = False
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = True
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
ActiveDocument.PrintOut
With Options
.UpdateFieldsAtPrint = False
.UpdateLinksAtPrint = False
.DefaultTray = "Use printer settings"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = True
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = True
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
End Sub
 
J

Jonathan West

Hi Ron

Instead of this line

ActiveDocument.PrintOut

use this

Dialogs(wdDialogFilePrint).Show
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Making a macro only work on certain files 2
Duplexing on a macro 5
Printing Macro 1
Problem found in Word 2007 1
Printer tray selection...again.... 5
viewing track changes balloons but not print them 1
Word Macro for multiple searches, incl. in footnotes 2
Help with VBA Macro needed 3

Top