Merging two parts of VBA code (save as PDF)

[carlandtina02]

Hi All,

I need merge two bits of code to:

1). Save the Active sheet to a certain file whilst using data from B16 and F10 to save as its file name.

2). Save as PDF.

The first bit of code works perfectly, but I just need it to save as a PDF. I have pasted the codes below to look at, and if anyone could help out it would be much appreciated...Thanks in advance. Carl

Sub SaveActivesheet()

Const strPath As String = "C:\Documents and Settings\carl.walker\My Documents\Reports\"
Dim strFile As String

With Sheet2
'check for Account Details'
If .Range("B16").Value = "" Or .Range("F10").Value = "" Then
MsgBox "Please enter Account Details by using the Add Account Details Userform provided. ", _
vbExclamation, "Missing Account"
Else
strFile = .Range("B16").Value & " " & .Range("F10").Value & ".xlsx"
.Copy 'Copy sheet2 to a new workbook
ActiveSheet.SaveAs Filename:=strPath & strFile 'Save the new workbook
End If
End With

End Sub


Sub SavePDFMacro()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\carl.walker\My Documents\Reports", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub


Regards
Carl

[mehmetcik]

I have just saved a file as a pdf

and recorded the following:-

Please Login or Register  to view this content.

So I am sure that your code works, except your will try and open the PDF file and mine didn't ( Unless I change the last false to True ).



So I don't see your problem.
This should work.

Please Login or Register  to view this content.

[carlandtina02]

Hi Mehmetcik,

Sorry, what I should of said is that I would like the first code to work but instead of it saving in xlsx format, to save as PDF instead.

Regards
Carl

[mehmetcik]

Try this.

Please Login or Register  to view this content.

[carlandtina02]

Hi Mehmetcik,

The code converts to pdf which is great, but it does not use the data from fields B16 and F10 to save as its filename.

Hope this helps

Regards
Carl

[jaslake]

Hi Carl

Try this

Please Login or Register  to view this content.

[carlandtina02]

Hi John,

That works a treat, thanks very much!

Kind Regards
Carl

[jaslake]

You're welcome...glad I could help. Thanks for the Rep.