Exporting a worksheet range as pdf

[ChuckDrago]

Hi everyone,

Got a tough one today (well, for me at least).

A workbook application collects data from the company server and populates a worksheet form (not UDF, just the sheet designed as a form). I need to grab the created datasheet form, copy it as a graphic to a Word document to finally save the Word document as a pdf to be attached to an email.

1) If there is a method unknown to me to save the worksheet as a pdf, I will appreciate the lesson.
2) If the two-step process I do manually is all I can do, I will also appreciate your guidance regarding translating it into VBA.

I am confused as a dog in a bowling alley.

Thank you all,

Chuck

 

[Fluff]

You can create a PDf like

Sub ChuckDrago()
   Dim Pth As String, Fname As String
   
   Pth = "C:\MrExcel\"
   Fname = "test1"
   Sheets("Pcode").Range("A1:I20").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Pth & Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

 

[ChuckDrago]

You can create a PDf like

Sub ChuckDrago()
   Dim Pth As String, Fname As String
   
   Pth = "C:\MrExcel\"
   Fname = "test1"
   Sheets("Pcode").Range("A1:I20").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      Pth & Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

It works a treat!
Immense gratitude, Mr Fluff.
Not the first time I got great advise from you and every time spot on. Thanks again,
Chuck

 

[Fluff]

You're welcome & thanks for the feedback