Ik wil de gebruiker er op attent maken dat het document moet gesaved worden
alvorens te printen. Het systeempje werkt behalve dat er bij het "neen"
antwoord altijd gesaved wordt. Het Windows venster gaat open en het maakt
geen verschil of ik "save" of "cancel" druk, de file wordt altijd gesaved.
I am stuck...
Alvast bedankt voor de zeer welkome help op de zeer lange weg naar het een
beetje beter verstaan van VBA. Zie mijn code hieronder:

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Help, Response, MyString
Msg = "Have you saved the calculation before printing ?" ' Define
message.
Style = vbYesNo + vbQuestion + vbDefaultButton1 ' Define buttons.
Title = "Save before printing" ' Define title.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.

' HIER KOMT DE PRINTINSTRUCTIE

Else ' User chose No.
On Error Resume Next
ChDir "C:\DUNRAIL\projects"
Application.GetSaveAsFilename ActiveSheet.Range("c14")
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Range("c14")
End
End If
End Sub

Sorry, I just realized I posted to the wrong group. I'll post again in
microsoft.public.nl.excel

"Daniel Van Eygen" wrote in message
i.nl...
Ik wil de gebruiker er op attent maken dat het document moet gesaved
worden
alvorens te printen. Het systeempje werkt behalve dat er bij het "neen"
antwoord altijd gesaved wordt. Het Windows venster gaat open en het maakt
geen verschil of ik "save" of "cancel" druk, de file wordt altijd gesaved.
I am stuck...
Alvast bedankt voor de zeer welkome help op de zeer lange weg naar het een
beetje beter verstaan van VBA. Zie mijn code hieronder:

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Help, Response, MyString
Msg = "Have you saved the calculation before printing ?" '
Define
message.
Style = vbYesNo + vbQuestion + vbDefaultButton1 ' Define
buttons.
Title = "Save before printing" ' Define title.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.

' HIER KOMT DE PRINTINSTRUCTIE

Else ' User chose No.
On Error Resume Next
ChDir "C:\DUNRAIL\projects"
Application.GetSaveAsFilename ActiveSheet.Range("c14")
ActiveWorkbook.SaveAs Filename:=ActiveSheet.Range("c14")
End
End If
End Sub