[SOLVED] Re: print a page on checkbox value
Code
Sub PrintAll()
Dim wshInput As Worksheet
Dim wshPrint As Worksheet
Dim lngRow As Long
Dim lngLastRow As Long
Set wshInput = Worksheets("ENTER DISCOUNTS")
Set wshPrint = Worksheets("TICKET")
With wshInput
lngLastRow = .Range("A" & .Rows.Count).End(xlUp).Row
For lngRow = 3 To lngLastRow
If wshInput.Range("D" & lngRow) = True Then
wshPrint.Range("A2").Value = .Range("A" & lngRow).Value
wshPrint.PrintOut
End If
Next lngRow
End With
End Sub
Display More