Save as PDF

[MOORED]

HI ,

any help would be most welcome

I have the following code which I link to a button that automatically saves a certain section of a worksheet. how can I modify the code to save a PDF rather than worksheet xls


Sub SaveShts()
Dim Ws As Worksheet, i As Integer
Application.ScreenUpdating = False
i = 0
For Each Ws In Worksheets
If Ws.Visible Then
i = i + 1
If i > 2 Then Exit For
Ws.Copy
ActiveWorkbook.SaveAs "C:\Users\User\Desktop\Invoice work" & Ws.Range("K1").Text, 51
ActiveWorkbook.Close
End If
Next Ws
End Sub


Kind regards
Darren

 

[ranman256]

sFile = "c:\folder\file.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=  sFile,  Quality:=  xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,   OpenAfterPublish:=True

 

[MOORED]

Many thanks Ranman,

Forgive me as I am just in early stages of learning

do I just need to add this section to the code obviously changing the destination