Msg Box with Print/Exit option needed

[aarondewberry]

All

I have an excel spreadsheet that, when opened a msg box appears asking the user to push print and exit the spreadsheet.

What I want to do is to be able to put two buttons on the msg box. A print button (to replace the standard 'Ok' button) aswell as an exit button, so that the user will never have to fully enter the spreadsheet.

Hope this is clear!?

Please see below the current code am using....

Private Sub Workbook_Open()
MsgBox "Please print document using the print icon" & vbCrLf & _
"Once printed, please exit the spreadsheet"
End Sub

Thanks

 

[PHV]

Something like this (typed, untested) ?
Private Sub Workbook_Open()
If MsgBox("Print document", vbOKCancel, "Print document") = vbOK Then
ThisWorkbook.PrintOut
End If
ThisWorkbook.Close False
End Sub

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886