Excel VBAmacros打印到PDF – 不支持输出文件？

我有一个简单的macrosselect工作表，input基本数据，然后打印到PDF文件。 这个macros的工作原理和文件是创build的，但是，当试图打开生成的文件时，Adobe Acrobat出现一个错误：“Acrobat无法打开”文档“，因为它不是支持的文件types，或者是因为文件被损坏。

这里是我的代码（名字和文字改为保护无辜）

Sheets("Sheet1").Select ActivePrinter = "CutePDF Writer on CPW2:": _ Range("Ab2").Select ActiveCell.FormulaR1C1 = "text 001" Range("Ab3").Select ActiveCell.FormulaR1C1 = "text 002" Range("Ab4").Select ActiveCell.FormulaR1C1 = "text 003" ActiveWindow.SelectedSheets.PrintOut _ printtofile:=True, Collate:=True, prtofilename:="filename.pdf" 

如果我注释掉ActivePrinter行并将filename改为.ps文件，它将创build一个在Acrobat中打开的postscript文件。 我知道我可以将.ps文件转换为.PDF文件，但是我试图避免这种情况，因为macros通过150多个变体创build了150多个文件。

有没有人有类似的经历，如果是的话，你做了什么来克服它们？

任何援助将不胜感激。

Answer 1

这是代码（从macroslogging器），将保存为PDF文件：

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Temp\Sample.pdf", Quality:= xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False