Create a single worksheet as PDF

[macquhele]

Hi guys

I'm looking for some help with a database I have.

My database has various worksheets on it. Most of them are feeds and calcs for the main worksheet which outputs data for the user. What I want to do is have the main worksheet only save as a PDF using certain cell references as part of the title.

I have mastered this to an extent with the coding below. However, the drawback is that it copies the main worksheet as a new workbook, creates the PDF and then leaves the new workbook open. This then needs to be manually closed and discarded. Ultimately I don't need the new workbook and only require the PDF.

Is there a way of doing this without the extra workbook being created? Any help as always is greatly appreciated

Please Login or Register  to view this content.

[macquhele]

Hi guys

I've managed to soleve the problem. For anyone else out there who needs the same functionality here is the revised code:

[code]
Sub SaveSheet1()

Dim MyFileName As String

MyFileName = "Z:\" & Range("L2") & " " & Range("K2") & " " & Format(Date, "ddmmyy") & ".pdf"
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$27"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFileName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub
[\code]

[macquhele]

And apologies for not posting the code correctly. A mistype!