Print sheet 1 and sheet 2, but sheet 2 only to print if cell value > 0

[kwoltman]

Hello all. Thanks for taking a look at this.

I'm looking to create a Macro or VB Code and then assign the Marco to a button/image on Sheet 1.
(Not sure if VB Code can be assigned to a button or not - sorry, I'm not real versed with this stuff)

Sheet 1 will always print when the button is hit and the macro/VB code is executed
Sheet 1 has a formula in Cell AS39 that pulls a value from Sheet 2
If cell AS39 on Sheet 1 is > $0.00, then I need Sheet 2 to automatically print along with Sheet 1.
If cell AS39 on Sheet 1 is = $0.00, then I need Sheet 2 to NOT print, so only Sheet 1 will print in this case.

Cell AS39 will always be either $0.00 or some value > $0.00.

I also need to know where to insert the code: Does it go into a Module? This workbook? Sheet1?
If you can provide precise instructions for how and where to insert the code that would be greatly appreciated.

[thomglea]

Sub PrintSheets()

    Sheets("Sheet 1").PrintOut

    If ThisWorkbook.Sheets("Sheet 1").Range("AS39") > 0 Then Sheets("Sheet 2").PrintOut

End Sub

[thomglea]

That code goes into a new Module

[jolivanes]

https://www.contextures.com/xlvba01.html
https://www.ablebits.com/office-addi...a-macro-excel/
https://wellsr.com/vba/2017/excel/ho...hape-in-excel/
https://support.microsoft.com/en-au/...d-9c72c843a283

Sub Maybe_So()
Dim shArr
If Sheets("Sheet1").Range("AS39").Value > 0 Then shArr = Array("Sheet1", "Sheet2") Else shArr = Array("Sheet1")
ThisWorkbook.Sheets(shArr).PrintOut
End Sub

[kwoltman]

This worked! Thank you.