kingcashandcarry
Member
i have this code and works with some problems
all i want to do is to save the wb to pdf and name based on cell value but i want to save it in options publish what entire workbook. as image shows
Code:
Sub Savealltopdf()
Dim SaveAsStr As String
SaveAsStr = ActiveWorkbook.Path & "\" & ActiveSheet.Range("Af2").Value
Dim x As Integer
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, filename:=SaveAsStr & ".pdf", IncludeDocProperties _
:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
all i want to do is to save the wb to pdf and name based on cell value but i want to save it in options publish what entire workbook. as image shows
Attachments
Last edited: