Confirmation Msgbox depending on Toggle button Caption

[klarowe]

I am pretty much done with this latest project, but I'm going through and making a few last minute changes to make things even easier. I want to set up a messagebox that is activated before printing only if ToggleButton1.Caption = "Internal Copy" with the message "Are you sure you want to print an Internal Copy?"
Upon a "Yes" then continue printing; If "No", then cancel print

FYI, I currently have a before print application.run macro but I should be able to add this new one after that and have them both run... I think...

Any help is appreciated.

 

[JamesW]

Hi,

Do you mean if the toggle button has been toggled?

Maybe this will help:

    If togglebutton1.Value = True Then
        confirmation = MsgBox("Are you sure you wish to print a copy?", vbYesNo)
        If confirmation = vbYes Then ...

 

[klarowe]

I can do it that way. Right now it is set up so that if the toggle value is true, it reads "internal copy" and if the value is false it reads "customer copy".
I can try to use what you posted above, but what should I use to continue / cancel the print depending on the vbyes/vbno??

Here is the code for ToggleButton1:

Private Sub ToggleButton1_Click()
    If ToggleButton1.Caption <> "Customer Copy" Then
        ToggleButton1.Caption = "Customer Copy"
        CallPressState
    Else
        ToggleButton1.Caption = "Internal Copy"
        CallPressState
    End If
End Sub
Sub CallPressState()
    If ToggleButton1.Caption = "Customer Copy" Then
        Application.Run "Hide"
    Else
        Application.Run "Unhide"
    End If
End Sub

 

[klarowe]

I got it figured out. I kept getting an error 424 because I wasn't calling out the sheet that housed the toggle button.

Final Code for future reference:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("Index").ToggleButton1.Caption = "Internal Copy" Then
confirmation = MsgBox("Are you sure you wish to print an Internal Copy?", vbYesNo)
If confirmation = vbYes Then Exit Sub
If confirmation = vbNo Then Cancel = True
End If
End Sub

 

[JamesW]

Hi,

When the user clicks YES then it will print, if they don't then it will just jump to the next line in the routine. You could put an Else in there to make it easier to read if you wish, but it is not <!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:Compatibility> <w:BreakWrappedTables/> <w:SnapToGridInCell/> <w:WrapTextWithPunct/> <w:UseAsianBreakRules/> </w:Compatibility> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel> </w:WordDocument> </xml><![endif]--><!--[if gte mso 10]> <style> /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";} </style> <![endif]-->necessarily required.

Sub CallPressState()
    If ToggleButton1.Caption = "Customer Copy" Then
        confirmation = MsgBox("Are you sure you wish to print?", vbYesNo)
        If confirmation = vbYes Then dostuff
        Application.Run "Hide"
    Else