'save as pdf' macro.....

[jetson7]

Hey. I'm a complete novice when it come to macros and am struggling. I need a macro that will save my selected worksheet by prompting me with the 'SAVE AS' dialog box. All links I have previously read only seem to include a specific file or file name. Can anyone please help?

 

[BiocideJ]

Will work in Excel 2007 and later.

Sub exportPDF()
fName = Application.GetSaveAsFilename("", "PDF Files (*.pdf), *.pdf")
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, fName, xlQualityStandard, , , , , True
End Sub

 

[jetson7]

Bloody Brilliant! Thank you, have been tryin to figure this out for the past week. Cheers again!

 

[jetson7]

Will work in Excel 2007 and later.

Sub exportPDF()
fName = Application.GetSaveAsFilename("", "PDF Files (*.pdf), *.pdf")
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, fName, xlQualityStandard, , , , , True
End Sub

Maybe I was a little hastey. This script work to save all sheet but I need it to save just the sheet I am working on. I am also using a print area but this will always be static so I believe there is no need to write this into the macro. Is there a way to do the same as the above macro but just the active sheet? Any help is greatly appreciated.

 

[jetson7]

Will work in Excel 2007 and later.

Sub exportPDF()
fName = Application.GetSaveAsFilename("", "PDF Files (*.pdf), *.pdf")
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, fName, xlQualityStandard, , , , , True
End Sub

Maybe I was a little hastey. This script work to save all sheet but I need it to save just the sheet I am working on. I am also using a print area but this will always be static so I believe there is no need to write this into the macro. Is there a way to do the same as the above macro but just the active sheet? Any help is greatly appreciated.

 

[jetson7]

Will work in Excel 2007 and later.

Sub exportPDF()
fName = Application.GetSaveAsFilename("", "PDF Files (*.pdf), *.pdf")
ActiveWorkbook.ExportAsFixedFormat xlTypePDF, fName, xlQualityStandard, , , , , True
End Sub

Maybe I was a little hastey. This script work to save all sheet but I need it to save just the sheet I am working on. I am also using a print area but this will always be static so I believe there is no need to write this into the macro. Is there a way to do the same as the above macro but just the active sheet? Any help is greatly appreciated.

 

[jetson7]

Maybe I was a little hastey. This script works to save all sheets but I need it to save just the sheet I am working on. I am also using a print area but this will always be static so I believe there is no need to write this into the macro. Is there a way to do the same as the above macro but just the active sheet? Any help is greatly appreciated.

 

[drsarao]

This would work:

Sub exportPDF()
fName = Application.GetSaveAsFilename("", "PDF Files (*.pdf), *.pdf")
[COLOR="#FF0000"]ActiveSheet[/COLOR].ExportAsFixedFormat xlTypePDF, fName, xlQualityStandard, , , , , True
End Sub

Note if multiple sheets are selected, all the sheets will be printed.

 

[jetson7]

Works perfect. Cheers again for all your help!