Thread: Help- Need to create macro that prints only certain data

You can filter out for the current date and then execute the print command on the filtered data. This can be done manually or if its too time-consuming / tedious, have a macro do it for you.

Try this,
Click the button.
Enter the date between 2012/1/1 to 2012/7/22 and see if it does what you want.

Sub d()

  Dim x, c01, c03&, col, LC&
  Dim ws As Worksheet
  
   Application.ScreenUpdating = 0
  
    Set ws = Sheets("Sheet2")
    
         x = ws.Cells(1).CurrentRegion
        
              c02 = InputBox("Please enter the date you need the column copied for.", "Date")
              c02 = DateSerial(Year(c02), Month(c02), Day(c02))
      On Error GoTo 0
        For i = 1 To UBound(x, 2)
         Set c01 = ws.Columns(i).Find(c02, , xlValues, xlWhole)
            If Not c01 Is Nothing Then
              With ws
                 .Cells(1, 7).Resize(UBound(x)).Value = .Cells(1, i).Resize(UBound(x)).Value
                .PageSetup.PrintArea = Cells(1, 7).CurrentRegion.Address
                 Exit Sub
              End With
            End If
        Next i
   Application.ScreenUpdating = 1
End Sub