Print then close all of excel

[sevenfive85]

Hi All,
I have some codes that is not doing as I intend it to, please help. I am using some codes to open a file and transfer information from one workbook to another then print and close all workbook without saving. Everything work fine except the part when it print. If I have "ActiveSheet.PrintOut" it would print the sheet and close the first workbook but not the second workbook without asking if I want to save(which I do not want), however if I remove that " ActiveSheet.PrintOut" it would obviously not print but all workbook would close. The snippet below is the code I currently have. Can someone tell me what code is needed to print the active sheet and close all of excel without saving?




ActiveSheet.PrintOut

ActiveWorkbook.Saved = True
Application.Quit
End Sub

 

[Jamie McMillan]

Hello,

Save all open workbooks first and then Quit

Sub SaveAll()
Dim wb As Workbook
For Each wb In Application.Workbooks
If Not wb.ReadOnly And Windows(wb.Name).Visible Then
wb.Save
End If
Next
End Sub

You could write:-

Sub YourSub()
ActiveSheet.PrintOut
call SaveAll
Application.Quit
End Sub

Jamie

 

[sevenfive85]

Hi Jamie,
Thank you for the reply. I don't want to save the files, I want it to print then close all workbook/excel without it prompting me to save.

 

[Jamie McMillan]

Hello,

Sub SaveAll()
Dim wb As Workbook
For Each wb In Application.Workbooks
If Not wb.ReadOnly And Windows(wb.Name).Visible Then
wb.Saved = True 'That should do it for you 
End If
Next
End Sub

Jamie

 

[sevenfive85]

Hello,

Sub SaveAll()
Dim wb As Workbook
For Each wb In Application.Workbooks
If Not wb.ReadOnly And Windows(wb.Name).Visible Then
wb.Saved = True 'That should do it for you
End If
Next
End Sub

Jamie

It work, Thank you Jamie.