macro for print to PDF active woorkbook

[aaron061883]

I am looking for help with a macro that will print all active tabs to PDF and keep the same file name and location as current excel file. If any one could help me with this it would be greatly appreciated I keep getting errors when trying to put it together with information I have read on the internet.

[kalbasiatka]

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Replace(ThisWorkbook.FullName, ".xlsm", ".pdf")

[aaron061883]

I need it to work for entire workbook PDF all active tabs (excludes hidden tabs) into one PDF document.

[aaron061883]

I got it to work thank you changed the activesheet to activeworkbook and it is working like a champ.
Thank you for all your help its truely appreciated

[aaron061883]

One last change is need. How can i add to this to make sure if there is a identical PDF it will ask do you want to replace this file.
[CODE][/Sub PDFprint()
'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Replace(ThisWorkbook.FullName, ".xlsm", ".pdf"), OpenAfterPublish:=True
End Sub
CODE]