Add PDF to Button

[Legacy 436357]

Could print to PDF be added to this button?

My print area is B2:H53

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

 

[Legacy 436357]

Thanks Fluff but it highlights that whole thing in debug. Identifier under cursor is not recognized.

 

[ekrause]

Just this:

Range("B2:H53") Type:=xlTypePDF, Filename:= "C:\Users\xj\Desktop\Test PDF Name", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

 

[Legacy 436357]

It goes to debug at 'Type' again sorry

 

[Legacy 436357]

there is a syntax error with that one

 

[Joe4]

Look at posts 4, 6, 10. You are missing the .ExportAsFixedFormat command after your range.

 

[Fluff]

@ekrause
You need the Exportasfixedformat otherwise the while section will go red as VBA doesn't know what to do with the range.
@xjohnson
I cannot replicate that error, but try

Range("B2:H53").ExportAsFixedFormat Type:=xlTypePDF, FileName:=Environ("userprofile") & "\Desktop\Test", _
   Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True

Which should save the pdf to your desktop.

 

[Legacy 436357]

Thank you Joe for finding that. The post #10 solved the problem thanks to Fluff.

I really appreciate the help.

 

[Fluff]

Glad we could help & thanks for the feedback