I currently have the VBA:
Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
Dim strPages As String

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
.Title = "Where are the files???"
.ButtonName = "Select this folder..."
If .Show Then strFolder = .SelectedItems(1) & "\" Else Exit Sub
End With

strFile = Dir(strFolder & "*.doc*", vbNormal)
strPages = InputBox("Enter the Pages you want to print out", "Specified Pages", "For example:1,2")

While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
.ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=strPages
.ActiveDocument.Close
End With
strFile = Dir()
Wend

Set objWordApplication = Nothing
MsgBox "Printing Completed"
End Sub


I want to create a similar one but that it will ask which printer and allow them to select the staple option and enter their Xerox code (as it would do when we normally print). The only thing is I want it to ask first time only and not for the other 300 documents that it will print.

Anybody got a solution?