see screen print
Hi Experts
Just need a slight amendment to the current vba (kevin) has so far provided me with this excellent solution.
But i need a extra step to be added to the current code. (see snippet)
1. Need the macro to add the current name i.e page 1 = Argentina to the file name box as shown in the screen print and then move onto page 2 = Australia etc.....
2. And at the same time print the a copy to the default printer.
[VBA]
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim FilePath As String
If SaveAsUI Then
FilePath = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name, "Text File (*.pdf), *.pdf")
If Not FilePath = "False" Then
ThisWorkbook.SaveAs FilePath
End If
Cancel = True
End If
End Sub
[/VBA]