Autosaving

[Steve]

Hiya all,

what i want to do ia automaticaly save at a certain point. I want to add
this after Call logout.



Thanks




Sub CheckOutOrder()

Call CheckLogin

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Show_message = MsgBox("Does the customer want a copy of the receipt?",
vbYesNo, "Print Receipt")

If Show_message = vbYes Then
Range("Announcement1").Select
ActiveCell.FormulaR1C1 = "Customer Copy"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("Announcement1").Select
ActiveCell.FormulaR1C1 = ""
End If

Call UpdateStock

Call ClearCurrentOrder("OrderComplete")

Call LogAction("Printed Reciept For " & RoomNumber)
Sheets("Reciept").Select

Call ClearReciept

Call LogOut

End Sub


---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 080228-0, 28/02/2008
Tested on: 29/02/2008 15:01:14
avast! - copyright (c) 1988-2008 ALWIL Software.
http://www.avast.com

 

[Mike H]

why not

activeworkbook.save

as a line in your 'Logout' macro

Mike

 

[Steve]

great thanks


---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 080228-0, 28/02/2008
Tested on: 29/02/2008 15:37:36
avast! - copyright (c) 1988-2008 ALWIL Software.
http://www.avast.com