Macro save a range to PDF

[Carolbell44]

Hi

Can anyone assist please. I had a Macro to save a range to PDF see below, but for some reason it is now not working See below. TIA

Sub SavePDF()


ActiveSheet.Unprotect ("PFS123")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="N:\pdf purchase orders" " & Range("F4").Value & ".pdf",
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True '
ActiveSheet.Protect ("PFS123")
End Sub

[Logit]

.
Untested here :

Please Login or Register  to view this content.

[Carolbell44]

Hi

Thanks for the response it still doesn't work, Could it be that i also have a range to print this document on another macro? My range is called Myrange2.

I appreciated with the given information that you cannot test it.

Thank you.

[Logit]

.
This worked here with the change path for my computer :

Please Login or Register  to view this content.

Note that I commented out the UNPROTECT and PROTECT lines of code.

You should be able to change the path back to your system ( "N:\pdf purchase orders\" & Range("F4").Value & ".pdf" ) and run the macro. I do not
see any reason why it would not work.

[ikboy]

Please Login or Register  to view this content.