D
Daniel Van Eygen
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
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