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

why not

activeworkbook.save

as a line in your 'Logout' macro

Mike

"Steve" wrote:

> 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
>
>
>
>

=?Utf-8?B?TWlrZSBI?= <(E-Mail Removed)> wrote in
news:6322E92E-75BF-4773-963E-(E-Mail Removed):

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