Excel 2010 Active Sheet Print Macro

[Tendon]

An Excel 2010 workbook contains worksheets that receive user input. I am looking for help with creating a macro that will force the printing of only the sheets that received input.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

 

[AlphaFrog]

What do you mean by "force the printing"? Automatically print when the user closes the workbook? When do you want to enforce your will upon the hapless soles?

What do you exactly mean by "only the sheets that received input"? Since the workbook was opened?

 

[Tendon]

AlphaFrog, Thank you for your reply. My workbook contains 10 worksheets. Each worksheet has cells that the user enters data such as quantity of an item. Most times only one or two sheets in the workbook have been selected during a use session. My goal is to have a button that will cause only the sheets that have data input to be printed and not print sheets that received no inputs.

Thank you for your continue assistance.

 

[AlphaFrog]

Put this at the top of any standard VBA module; e.g. Module1

Public strPrintSheets As String

Put this in the ThisWorkbook module.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If InStr(strPrintSheets, Sh.Name & ",") = 0 Then strPrintSheets = strPrintSheets & Sh.Name & ","
End Sub

Put this in the sheet module that will have your Print commandbutton

Private Sub CommandButton1_Click()

    Dim ws As Variant
    If Not strPrintSheets = vbNullString Then
        ws = Split(Left(strPrintSheets, Len(strPrintSheets) - 1), ",")
        Sheets(ws).PrintOut Copies:=1, Collate:=True
        strPrintSheets = vbNullString 'Clear worksheet change list after print?
    Else
        MsgBox "No changed sheets to print.", vbExclamation, "Print Sheets Canceled"
    End If

End Sub

 

[Tendon]

Thank you AlphaFrog, I will try this and reply to you.

Good Day