Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

PDF または XPS 形式で出力（ExportAsFixedFormat メソッド）

2015/10/23

ExportAsFixedFormat メソッド

ブックやシートの内容を PDF 形式または、XPS 形式で出力します。

【書式】

object.ExportAsFixedFormat ( type [, filename, quality, includedocproperties, ignoreprintareas, from, to, openafterpublish, fixedformatextclassptr ] )

引数・戻り値

object ・・・対象となる Workbook オブジェクト、Sheet オブジェクト、Chart オブジェクト、Range オブジェクト を指定します。
type ・・・出力するファイルの種類を表す XlFixedFormatType 列挙型 の定数またはその値を指定します（省略不可）。

定数値内容

xlTypePDF 0 PDF 形式のファイル（拡張子：.pdf）で出力

xlTypeXPS 1 XPS 形式のファイル（拡張子：.xps）で出力
filename ・・・保存するファイル名を指定します。パスを含めない場合は、カレントフォルダ内に保存されます（省略可）。
quality ・・・出力品質を表す XlFixedFormatQuality 列挙型 の定数またはその値を指定します（省略可）。

定数値内容

xlQualityStandard 0 標準品質（既定値）

xlQualityMinimum 1 最小限の品質
includedocproperties ・・・ドキュメントプロパティが含める場合は、True を指定、含めない場合は、False に指定します（省略可）。
ignoreprintareas ・・・印刷範囲を無視する場合は、True を指定、しない場合は、False（既定値）を指定します（省略可）。
from ・・・印刷を開始するページ番号を指定します。省略すると先頭のページから印刷します。
to ・・・印刷を終了するページを指定します。省略すると最後のページまで印刷します。
openafterpublish ・・・ True を指定すると、出力後に、対応するアプリケーションで開きます。False（既定値）を指定すると出力のみです（省略可）。
fixedformatextclassptr ・・・ FixedFormatExt クラスへのポインターです（省略可）。

出力先に同名のファイルが既に存在している場合は、上書きされるので注意が必要です。

ExportAsFixedFormat メソッド使用例

サンプルVBAソース

　
Sub Sample_ExportAsFixedFormat()

    Dim FName As String
    
    FName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Test.pdf"

    ActiveWorkbook.ExportAsFixedFormat _
        Type:=xlTypePDF, FileName:=FName, OpenAfterPublish:=True
    

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

　

Sub Sample_ExportAsFixedFormat()

Dim FName As String

FName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Test.pdf"

ActiveWorkbook.ExportAsFixedFormat _

Type:=xlTypePDF, FileName:=FName, OpenAfterPublish:=True

End Sub

　

実行結果

- ブック・シートの操作 Chart オブジェクト, ExportAsFixedFormat メソッド, Range オブジェクト, Sheet オブジェクト, VBA基本, Workbook オブジェクト, エクセルVBA, ブック・シートの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 印刷時、シート内のエラーをどう扱うかを設定（PrintErrors プロパティ）

PageSetup.PrintErrors プロパティ PageSetup.Pr …

: ウィンドウの位置を入れ替える（ActivatePrevious メソッド、ActivateNext メソッド）

ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act …

: 印刷時のページの番号付けの方向を設定（PageSetup.Order プロパティ）

PageSetup.Order プロパティ PageSetup.Order プロ …

: 選択されているシートを参照する（SelectedSheets プロパティ）

SelectedSheets プロパティ選択されているすべてのシートをあらわす …

: 画面の上端・左端を設定（ScrollRow プロパティ、ScrollColumn プロパティ）

画面の上端・左端を設定 ScrollRow プロパティで、指定した行を画面上端に …

: 印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）

印刷の総ページ数を取得（ExecuteExcel4Macro メソッド） Exc …

: ユーザー設定のドキュメントプロパティ（CustomDocumentProperties プロパティ）

CustomDocumentProperties プロパティユーザー設定のドキ …

: ウィンドウを整列（Windows.Arrange メソッド）

ウィンドウを整列（Windows.Arrange メソッド） Windows コ …

: 印刷の用紙サイズを設定（PageSetup.PaperSize プロパティ）

PageSetup.PaperSize プロパティ PageSetup.Pape …

: 印刷設定（ヘッダーに文字列を指定）LeftHeader,CenterHeader,RightHeader

PageSetup.LeftHeader プロパティ PageSetup.Lef …

PREV: 印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）
NEXT: カレントフォルダ（CurDir 関数、ChDir ステートメント、ChDrive ステートメント）