This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
I have VBA code similar to this that I use in multiple workbooks:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FName, _
Quality:=xlQualityStandard , IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
FName is a string variable containing the path and the filename. This code worked perfectly until two weeks ago, when it suddenly stopped working and started generating a "Document not saved" error. This has to relate to some upgrade our IT department did, but I have no idea what. We're using Office 2007 under Windows XP. Anyone have any ideas what could have changed to cause this code to stop working?
A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.
Answer accepted by question author
Hi,
To trouble this error, please check out this kb article.
http://support.microsoft.com/kb/271513
Here is a article for this error
Thanks, but these address problems saving a workbook. The VBA code I'm using is attempting to save as a PDF. I can manually save without problems, but the VBA code fails with the "Document not saved" error.