Hi all

I have for some time trying to figure out how to write a excel vb macro which:-
User can select folder containing word docs
View selected doc.
Print selected word doc.
Saving of doc not required
Close word application.
Next time user selects macro
macro remembers last folder selected.
User selects any file to print from folder.

I have tried using,
.Application.Dialogs(x1DialogOpen)
msoFileDialogFolderPicker
msoFileDialogFilePicker
I require the last folder selected by user when selecting the print word doc macro

I can make it work if I use a different macro for each doc to be printed.
Ideally I want the code in one macro for user to select.

Thanks for any help.
Below is my code to print one doc from each macro;-
__________________
Sub Print_Doc1()
Dim wrdApp As Object
'
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
'
Set wrdApp = CreateObject("Word.Application")
'
If wrdApp Is Nothing Then
Set wrdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
wrdApp.Documents.Open "G:\Region\Warehouse\Lables\Doc1.doc"
wrdApp.Visible = True
wrdApp.Activate
wrdApp.DisplayAlerts = 0
wrdApp.PrintOut
Set wrdApp = Nothing
End Sub
___________________________
Sub Print_Doc2()
Dim wrdApp As Object
'
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
'
Set wrdApp = CreateObject("Word.Application")
'
If wrdApp Is Nothing Then
Set wrdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
wrdApp.Documents.Open "G:\Region\Warehouse\Lables\Doc2.doc"
wrdApp.Visible = True
wrdApp.Activate
wrdApp.DisplayAlerts = 0
wrdApp.PrintOut
Set wrdApp = Nothing
End Sub