2

シートテンプレートをPDFにエクスポートするマクロを作成しました。

ActiveWorkbook.Sheets("Sheet2").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  ActiveWorkbook.Path & "\Survey Report.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
  :=False, OpenAfterPublish:=True

他の方法で試しましたが、エラーに違いはありません。

リンクはすでに試しました：

  1. http://www.mrexcel.com/forum/excel-questions/608810-printing-multiple-worksheets-pdf-2.html
  2. http://www.mrexcel.com/forum/microsoft-access/385749-exportasfixedformat-error.html
  3. http://answers.microsoft.com/en-us/office/forum/office_2010-customize/error-5-invalid-procedure-call-or-argument/574c2c8f-7f2c-4644-9373-bbc14c8d3fd7?msgId=4dbee3f3- ad28-4427-a50b-a3904b09ec1e
4

4 に答える 4

4

あなたの実際のコードは私のために働きます。ただし、これを試してください（試してテスト済み）

Sub Sample()
    ActiveWorkbook.Sheets("Sheet2").Activate

    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=ActiveWorkbook.Path & "\Survey Report.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

注：

  1. またSheet2、印刷するものが含まれていることを願っています。そうでない場合は、空白のシートでエラーが発生します。
  2. コードを実行しているワークブックからシートを印刷する場合は、に変更ActiveWorkbookしThisWorkbookて再試行することをお勧めします...
于 2012-12-27T15:02:55.577 に答える
4

また、このエラーが発生し、問題を解決するために手動で実行してみました。

ファイル名（パスを含む）が218文字を超えると、PDFとして保存できないことがわかりました。

于 2019-02-07T23:26:09.227 に答える
2

また、Excelの無料のMicrosoft SaveasPDFまたはXPSアドインがインストールされている必要があります。

于 2016-09-09T17:17:03.957 に答える
1

Adobeプリンターがインストールされている場合は、以下のコードを使用してPDFを取得してください

sub Sample()
    ActiveWorkbook.Sheets("Sheet2").Activate
    ActiveSheet.Printout
End Sub
于 2013-06-25T12:35:06.390 に答える