I am building an Excel spreadsheet that will be used to produce Invoices and
Delivery Notes via a web based IntraNet site.

Since the usual toolbars and menus are not available in the Internet
Explorer embedded Excel; I have been creating macros to allow the users to
Save and Print. The print commands work fine but I am not able to create a
macro that will present the user with a Save As dialogue box.

The alternative solution I thought up was to install a PDF writing printer
driver on all of the workstations and write a macro that would automatically
change the printer selection and initiate a print out on click, resulting in
a Save As dialogue box that woud allow the user to save the spreadsheet in
PDF format to the location of their choice.

Sub Save_IDN()
'
' Save_IDN Macro
' Macro recorded 25/03/2006 by Neal
'

Dim STDprinter As String
STDprinter = Application.ActivePrinter
Application.ActivePrinter = "IDN on CPW2:"
' change printer
Sheets(Array("Invoice", "DeliveryNote")).Select
Sheets("Invoice").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' prints the active sheet
Application.ActivePrinter = "Canon PIXMA iP1500 on Ne00:"
' change back to standard printer
End Sub

Although this works fine on locally stored spreadsheets, it doesn't when the
file is launched from the web.

Does anybody know how I can get my PDF system to work or alternatively
achieve a Save As dialogue box.

Many thanks in advance for any replies.