L
Legacy 436357
Guest
Could print to PDF be added to this button?
My print area is B2:H53
My print area is B2:H53
Code:
Private Sub CommandButton1_Click()
Dim NxtRw As Long
Application.EnableEvents = False
If Range("J3").Value = "" Then
NxtRw = 3
Else
NxtRw = Range("J2").End(xlDown).Offset(1).Row
End If
Range("J" & NxtRw).Value = Range("H6").Value
Range("K" & NxtRw).Value = Range("H3").Value
Range("L" & NxtRw).Value = Format(Now(), "MM/dd/yyyy HH:MM:SS")
Application.EnableEvents = True
End Sub