Simple Word macro/button to print out a form

Happy April Fool's Day!

Here is a simple macro in MS Word that you can use to print out a document to the default printer.

Go to View>Toolbars>Control Toolbox to display the Control Toolbox.
Click the "Command Button" icon to insert a command button in your document. You can drag it anywhere you like and resize as needed.
Double click the button to view the code window. You should be taken right inside an auto-created Click event that looks like this:

Private Sub CommandButton1_Click()

End Sub

Paste the following code in between those lines:

ActiveDocument.PrintOut

Press F4 to view the Properties window for the command button and change the "Caption" property to something like "Print" or something else useful.
Press Alt-Q to close the VB Editor and return to MS Word.
On the Control Toolbox, click "Exit Design Mode". You can close the toolbar if you wish.

Test it out by pressing the button! It will send your document to the default printer. Keep in mind the button is displayed on the document so it will be printed as well.

Enjoy,
JP

Private Sub CommandButton1_Click() ActiveDocument.HasRoutingSlip = True With ActiveDocument.RoutingSlip .Subject = "Incident Hazard Report" .AddRecipient "my email address" .AddRecipient "someone else's email address" .Delivery = wdAllAtOnce End With ActiveDocument.Route ActiveDocument.HasRoutingSlip = False End Sub

Private Sub CommandButton1_Click() ActiveDocument.HasRoutingSlip = True With ActiveDocument.RoutingSlip .Subject = "Incident Hazard Report" .AddRecipient "my email address" .AddRecipient "another email address" .AddRecipient "another email address" .AddRecipient "another email address" .Delivery = wdAllAtOnce End With ActiveDocument.Route ActiveDocument.HasRoutingSlip = False End Sub If MsgBox("Print this?", vbYesNo) = vbYes Then ActiveDocument.PrintOut End If

Private Sub CommandButton1_Click() ActiveDocument.HasRoutingSlip = True With ActiveDocument.RoutingSlip .Subject = "Incident Hazard Report" .AddRecipient "my email address" .AddRecipient "another email address" .AddRecipient "another email address" .AddRecipient "another email address" .Delivery = wdAllAtOnce End With ActiveDocument.Route ActiveDocument.HasRoutingSlip = False If MsgBox("Print this?", vbYesNo) = vbYes Then ActiveDocument.PrintOut End If End Sub

4 Comment(s) on Simple Word macro/button to print out a form:

Sophia Rous writes:

July 23, 2011 at 12:54 am
Hi Jp,

I have added an email button to a form and I am now trying to get it to give me the option to print a copy for my records…any help would be appreciated.

The code I am using for emailing the form is below:
```
Private Sub CommandButton1_Click()
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
.Subject = "Incident Hazard Report"
.AddRecipient "my email address"
.AddRecipient "someone else's email address"
.Delivery = wdAllAtOnce
End With
ActiveDocument.Route
ActiveDocument.HasRoutingSlip = False
End Sub
```
Thanks and kind regards

Sophia
- JP writes:
  
  July 23, 2011 at 8:27 pm
  If you want to prompt the user first, try this:
```
If MsgBox("Print this?", vbYesNo) = vbYes Then
  ActiveDocument.PrintOut
End If
```
  PS- I edited your code to remove the email addresses.