Save if Modified Before Print

[Lace29M]

I need to create a command to tell Excel to Save my Workbook BeforePrint, if and only if the Workbook has been modified since the last time it was saved. Right now I have a command that runs where a text box is populated with the last date modified BeforeSave. The date modified will not change unless modifications to the workbook are saved. Therefore, I want to keep the last date modified the same when the Workbook is opened and printed if the Workbook has not been modified. Please Help!

 

[Derek Brown]

Do you mean something like:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wb As Workbook
If Not wb.Saved Then
    wb.Save
End If
Set wb = Nothing
End Sub

placed in the 'ThisWorkbook' VBA object?

 

[Lace29M]

Exactly. Thank you!

 

[Derek Brown]

Just for the record, the line

Set wb = ThisWorkbook

should have been included before the IF statement