Save a pdf to the desktop with a filename as a cell reference
I'm currently working on a macro that is on a network (i.e. deals with the
Ne0x issue"), saves a pdf of a certain print area to the desktop, bypasses
the "Save as" box of the non MS pdf writer (Doro PDF Writer), and names the
file based on a cell reference.
Whew!
I've got everything working except the filename = cell reference
Here's what is currently working if I wanted to just pick an arbitrary
filename:
ActiveSheet.ExportAsFixedFormat _
Type:=x1typepdf, _
Filename:="C:\Documents and Settings\all users\Desktop/test.pdf", _
Openafterpublish:=False
I'm aware of the forward slash. For some reason, that's working. Anyway,
this is what I thought would work:
ActiveSheet.ExportAsFixedFormat _
Type:=x1typepdf, _
Filename:="C:\Documents and Settings\all users\Desktop/" _
& Range("A18").Value & ".pdf", _
Openafterpublish:=False
But it's not. I get a run time error and a "File not Saved" notice. Btw,
the line break in the filepath is only in this post because the message box
isn't wide enough.
Any help would be great.
|